NAVAL  POSTGRADUATE  SCHOOL 
MONTEREY,  CALIFORNIA 


1 9980421  025 

THESIS 


IMPLEMENTATION  OF  REQUIREMENTS 
TRACING  IN  THE  PROTOTYPING  ENVIRONMENT 
UTILIZING  PSDL 

by 

David  J.  Schmidt 
December  1997 

Thesis  Advisor:  Valdis  Berzins 

Approved  for  public  release;  distribution  is  unlimited. 


i  lync  QUALDry  ffiBPEUTESj  a 


REPORT  DOCUMENTATION  PAGE 


Form  Approved  OMB  No.  0704-0188 


Public  reporting  burden  for  this  collection  of  information  is  estimated  to  average  1  hour  per  response,  including  the  time  for  reviewing  instruction,  searching  existing  data  sources, 
gathering  and  maintaining  the  data  needed,  and  conr^leting  and  reviewing  the  collection  of  information.  Send  comments  regarding  this  burden  estimate  or  any  other  aspect  of  this 
collection  of  information,  including  suggestions  for  reducing  this  burden,  to  Washington  Headquarters  Services,  Directorate  for  Information  Operations  and  Reports,  1215 
Jefferson  Davds  Highway,  Suite  1204,  Arlington,  VA  22202-4302,  and  to  the  Office  of  Management  and  Budget,  Paperwork  Reduction  Project  (0704-0188)  Washington  DC 
20503. _ _ _ _ 

1 .  AGENCY  USE  ONLY  (Leave  blank)  2.  REPORT  DATE  3.  REPORT  TYPE  AND  DATES  COVERED 


December  1997  Master’s  Thesis 


4.  TITLE  AND  SUBTITLE 

IMPLEMENTATION  OF  REQUIREMENTS  TRACING  IN  THE 
PROTOTYPING  ENVIRONMENT  UTILIZING  PSDL 

5. 

FUNDING  NUMBERS 

6. 

AUTHOR(S)  Schmidt,  David  J. 

7, 

PERFORMING  ORGANIZATION  NAME(S)  AND  ADDRESS(ES) 

Naval  Postgraduate  School 

Monterey  CA  93943-5000 

8. 

PERFORMING 

ORGANIZATION 

REPORT  NUMBER 

9. 

SPONSORING/MONITORING  AGENCY  NAME(S)  AND  ADDRESS(ES) 

10. 

SPONSORING/MONITORING 
AGENCY  REPORT  NUMBER 

11. 

SUPPLEMENTARY  NOTES  The  views  expressed  in  this  thesis  are  those  of  the  author  and  do  not  reflect  the 
official  policy  or  position  of  the  Department  of  Defense  or  the  U.S.  Government. 

12a. 

DISTRIBUTION/AVAILABILITY  STATEMENT 

Approved  for  public  release;  distribution  is  unlimited. 

12b. 

DISTRIBUTION  CODE 

1 3 .  ABSTRACT  (maximum  200  words ) 

The  prototyping  description  language  (PSDL),  a  key  component  of  CAPS,  is  a  language  designed  for  clarifying 
the  requirements  of  complex  real-time  systems.  Through  the  use  of  prototyping,  the  functional  requirements  for 
an  embedded  system  can  be  rapidly  validated  to  preclude  inefficient  usage  of  resources.  This  research  has 
concentrated  on  the  software  engineering  area  of  extending  the  PSDL  data  type  and  Ayacc  source  to  support 
requirements  tracing.  Currently,  CAPS  doesn’t  use  requirements  tracing  so  the  extensions  just  described  are  a 
significant  step  in  that  direction.  This  thesis  includes  an  investigation  into  the  potential  use  of  an  OODBMS 
which  will  interface  with  ADA95,  and  be  utilized  to  store  the  list  of  requirement  ids  for  each  PSDL  component. 

Through  the  ADA95  program  implementation  and  extension  to  the  capabilities  of  the  PSDL  data  t)q)e  and 
Ayacc  source,  the  programmer/designer  has  automated  documentation  support  which  will  link  the  requirement 
ids  to  their  respective  component  names.  This  research  demonstrates  there  is  no  ADA95  OODBMS  at  the 
current  time  and  therefore  the  requirement  ids  are  stored  in  a  file.  There  is  an  ADA95  OODBMS  being 
developed  at  Lockheed  Martin  under  the  project  name  of  FIRM.  Also  demonstrated  is  the  connection  of  the 
unique  list  of  requirement  ids  in  the  design  phase  with  their  respective  PSDL  components,  so  that  the  link 
between  the  design  stages  and  analysis  phase  support  for  the  modules  is  more  completely  established. 


14.  SUBJECT  TERMS  PSDL,  OODBMS,  ADA95,  AYACC. 

15.  NUMBER  OF 

PAGES  128 

16.  PRICE  CODE 

1 7.  SECURITY  CLASSinCA- 

18.  SECURITY  CLASSin- 

19.  SECURITY  CLASSinCA- 

20.  LIMITATION  OF 

TION  OF  REPORT 

CATION  OF  THIS  PAGE 

TION  OF  ABSTRACT 

ABSTRACT 

Unclassified 

Unclassified 

Unclassified 

UL 

NSN  7540-01-280-5500  Standard  Form  298  (Rev.  2-89 

Prescribed  by  ANSI  Std.  239-18  298-102 


jmc  QUALiry  mspscTSD  s 


1 


11 


Approved  for  public  release;  distribution  is  unlimited. 


IMPLEMENTATION  OF  REQUIREMENTS  TRACING  IN  THE 
PROTOTYPING  ENVIRONMENT  UTILIZING  PSDL 

David  J.  Schmidt 

B.S.,  University  of  Nebraska,  1980 
M.S.,  University  of  Nebraska,  1985 

Submitted  in  partial  fulfillment 
of  the  requirements  for  the  degree  of 

MASTER  OF  SCIENCE  IN  SOFTWARE  ENGINEERING 

from  the 

NAVAL  POSTGRADUATE  SCHOOL 


''Dan  Boger,  Acting  Chairman 
Department  of  Computer  Science 


iv 


r 


ABSTRACT 


The  prototyping  description  language  (PSDL),  a  key  component  of  CAPS,  is  a 
language  designed  for  clarifying  the  requirements  of  complex  real-time  systems. 
Through  the  use  of  prototyping,  the  functional  requirements  for  an  embedded 
system  can  be  rapidly  validated  to  preclude  inefficient  usage  of  resources.  This 
research  has  concentrated  on  the  software  engineering  area  of  extending  the  PSDL 
data  type  and  Ayacc  source  to  support  requirements  tracing.  Currently,  CAPS 
doesn’t  use  requirements  tracing  so  the  extensions  just  described  are  a  significant 
step  in  that  direction.  This  thesis  includes  an  investigation  into  the  potential  use  of 
an  OODBMS  which  will  interface  with  ADA95,  and  be  utilized  to  store  the  list  of 
requirement  ids  for  each  PSDL  component. 

Through  the  ADA95  program  implementation  and  extension  to  the  capabilities 
of  the  PSDL  data  type  and  Ayacc  source,  the  programmer/designer  has  automated 
documentation  support  which  will  link  the  requirement  ids  to  their  respective 
component  names.  This  research  demonstrates  there  is  no  ADA95  OODBMS  at 
the  current  time  and  therefore  the  requirement  ids  are  stored  in  a  file.  There  is  an 
ADA95  OODBMS  being  developed  at  Lockheed  Martin  under  the  project  name  of 
FIRM.  Also  demonstrated  is  the  connection  of  the  unique  list  of  requirement  ids  in 
the  design  phase  with  their  respective  PSDL  components,  so  that  the  link  between 
the  design  stages  and  analysis  phase  support  for  the  modules  is  more  completely 
established. 
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I.  INTRODUCTION 


A.  GENERAL 

This  research  concentrates  on  the  software  engineering  area  of  extending  the 
Prototyping  System  Description  Language  (PSDL)  data  type  and  Ada95  Yet  Another 
Compiler-Compiler  (Ayacc)  source  for  requirements  tracing.  Currently,  the  Computer 
Aided  Prototyping  System  (CAPS)  does  not  include  the  requirements  from  the  analysis 
phase.  Each  requirement  is  referred  to  by  a  unique  id  and  so  the  extensions  just  described 
in  the  preceding  abstract  are  a  significant  step  in  that  direction.  In  addition,  this  thesis 
investigates  the  potential  use  of  an  Object  Oriented  Database  Management  System 
(OODBMS)  which  has  an  Application  Programming  Interface  (API)  for  ADA95.  Given 
that  no  OODBMS  exists  which  interfaces  with  Ada95,  a  file  is  utilized  to  store  the  list  of 
requirement  ids  and  their  respective  PSDL  component  names.  The  stored  information 
has  recorded  the  association  between  requirement  ids  and  the  PSDL  component  names 
for  those  components  that  have  requirement  ids. 

Through  the  extension  to  the  capabilities  of  certain  PSDL  software  packages  and  the 
Ayacc  source  file,  “parser.y”,  the  programmer/designer  now  has  automated 
documentation  support  which  links  the  requirement  ids  to  their  respective  requirements 
and  component  names.  By  demonstrating  the  connection  between  the  PSDL  components 
and  the  associated  list  of  requirement  ids,  the  design  and  implementation  phases  are  more 
completely  supported  by  the  anzdysis  phase. 

B.  PROBLEM  STATEMENT 

As  mentioned  above,  CAPS  does  not  implement  the  requirement  ids,  however  the 
PSDL  grammar  as  described  in  Appendix  A,  “PSDL  GRAMMAR”,  specifies  the  syntax 
to  include  the  requirement  ids  and  associate  those  ids  with  their  respective  components.  A 
significant  step  in  the  direction  of  CAPS  utilizing  the  requirement  ids  is  to  modify  the 
PSDL  data  structure  and  the  Ayacc  source  to  support  requirements  tracing. 
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To  store  the  requirement  ids  and  other  types  of  object  data,  it  is  necessary  to 
investigate  and  implement,  if  possible,  an  OODBMS  which  interfaces  to  ADA95.  A 
relational  database  cannot  store  all  the  various  complex  and  abstract  data  objects  utilized 
by  the  PSDL  software.  In  addition,  a  relational  database  can  be  expensive  with  regard  to 
performance  since  table  joins  are  needed  to  follow  pointers.  The  resources  necessary  to 
accomplish  this  task  of  locating  an  ADA95  OODBMS  includes  researching  the  library 
and  World  Wide  Web  (WWW)  as  well  as  utilizing  email  and  the  telephone. 

C.  SCOPE 

This  thesis  concentrates  on  the  extension  of  the  capabilities  of  the  PSDL  data  type 
and  the  Ayacc  source  to  handle  requirements  tracing  for  PSDL  modules.  Investigation 
into  an  OODBMS  which  has  an  ADA95  API  has  also  be  conducted.  Through 
modification  of  the  Ayacc  source  file  and  the  PSDL  package  software,  it  is  possible  to 
extract  the  PSDL  component  names  and  associated  list  of  requirement  ids.  The 
requirement  ids  and  associated  components  can  be  stored  in  an  Object  Oriented  Database 
(OODB)  or,  if  none  exists,  then  in  a  file.  The  requirement  ids  refer  to  the  individual 
requirements  for  the  prototyping  project  used  to  create  the  functionality  specified  by  the 
PSDL  module. 

The  Ayacc  source  file  has  to  be  modified  to  capture  the  requirement  ids  for  each 
PSDL  component.  The  build  component  procedures  in  the  Ayacc  source  file  must 
include  a  parameter  to  hold  the  associated  list  of  requirement  ids.  Selection  of  a  data 
structure  is  needed  to  hold  the  requirement  ids  such  that  all  ids  including  duplicate  ones 
are  stored.  The  make  component  procedures  in  the  PSDL  Ada  software  need  to  be 
modified  to  include  a  requirements  variable.  Furthermore,  an  output  routine  must  be 
created  to  store  the  component  names  and  associated  list  of  requirements  ids. 
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n.  BACKGROUND 


A.  GENERAL 

PSDL  is  a  partially  graphical  text-based  language  utilized  in  real-time  applications 
for  specifying  timing  and  functional  behavior.  The  CAPS  consists  of  an  integrated  set  of 
software  modules  that  support  design,  translation,  and  execution  of  prototypes.  It  is  a 
software  engineering  tool  designed  to  execute  the  specifications  expressed  in  PSDL.  The 
grammar  for  PSDL  is  completely  specified  in  Appendix  A.  In  addition,  those  PSDL 
Ada95  packages  which  either  have  been  altered  or  created  to  handle  the  storage  and 
retrieval  of  the  requirements  ids  are  located  in  Appendix  G,  “PSDL  SOURCE  CODE 
LISTING”. 

The  Ayacc  tool  as  described  in  Section  C  below  is  based  on  the  popular  Unix 
utility  Yacc,  and  it  closely  imitates  the  features  and  conventions  of  its  C  counterpart  [1]. 
The  syntax,  command  line  interface,  and  overall  description  of  this  utility  is  covered  in 
Appendix  B,  “AYACC  REFERENCE  PAGES”.  Appendix  H,  'AYACC  SOURCE 
CODE  LISTING”,  contains  the  modified  Ayacc  input  file  for  the  PSDL  grammar. 

B.  PROTOTYPING  SYSTEM  DESCRIPTION  LANGUAGE 

The  ever  increasing  demand  for  software  systems  is  in  the  direction  of  larger, 
high  quality  systems  which,  up  until  now,  have  been  very  difficult,  if  not  impossible,  to 
create  using  current  software  development  methods.  To  attain  the  goal  of  improved 
program  productivity  and  reliability,  a  prototyping  language  such  as  PSDL  is  needed  to 
support  rapid  prototyping  [2].  A  prototype  is  an  executable  version  of  a  proposed 
software  system  which  is  used  to  guide  the  analysis  and  design  work  and  can 
automatically  generate  the  corresponding  production  code.  Because  the  generated  code 
very  often  does  not  fulfill  all  specifications  of  the  proposed  system,  and  in  fact  may  not 
even  operate  within  the  targeted  hardware  configuration,  it  cannot  be  utilized  as  the  final 
product  [3]. 
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PSDL  is  a  language  for  describing  prototypes  and  is  utilized  in  real-time 
applications  for  specifying  timing  and  functional  behavior.  It  describes  the  proposed 
system  as  a  hierarchy  of  networks  consisting  of  processing  units  (operators)  which 
communicate  with  instances  of  abstract  data  types  by  way  of  data  streams  [4].  PSDL  has 
been  used  for  the  design  of  large  embedded  systems,  feasibility  studies,  and  requirements 
analysis.  It  is  used  to  record  and  enforce  timing  constraints,  as  well  as  model  control 
aspects  relying  on  control  constraints,  operators,  and  data  abstractions.  The  semantics  of 
PSDL  are  not  described,  nor  are  those  aspects  related  to  hard  real-time  constraints  and 
scheduling  behavior,  topics  which  are  treated  in  [5]. 

The  PSDL  base  is  a  computational  model  which,  as  mentioned  above,  contains 
Operators  which  communicate  through  Data  Streams.  Each  stream  can  contain  instances 
of  a  fixed  abstract  data  type.  The  formal  notation  for  the  computational  model  is  the 
augmented  graph:  G  =  (V,  E,  T(v),  C(v)),  where  V  is  the  set  of  vertices,  E  the  set  of 
edges,  T(v)  is  the  set  of  timing  constraints  for  each  vertex  v,  and  C(v)  is  the  set  of  control 
constraints  for  each  vertex  v.  The  vertices  refer  to  operators  while  the  edges  are  the  data 
streams  [2],  and  the  first  three  components  are  the  Enhanced  Data  Flow  Diagram. 

PSDL  was  designed  to  insure  that  prototypes  be  executable,  simple,  and  easy  to 
use;  be  based  on  a  simple  computational  model  encouraging  good  prototype 
modularization;  support  hierarchical  structures  for  large-scale  design;  be  applicable  to 
both  the  specification  and  design  levels,  resulting  in  single  uniform  notation  and 
avoi,.^ance  of  coding  details;  support  multiple  styles  for  formal  and  informal 
specifications;  contain  abstractions  for  constructing  real-time  systems;  and,  be  able  to 
specify  the  retrieval  of  reusable  models  from  a  software  base  [2]  .  The  complete 
specification  for  the  PSDL  grammar  is  included  in  Appendix  A. 

1 .  Components 

The  two  kinds  of  components  in  a  PSDL  prototype  are  operators  and  types.  The 
firing  of  an  operator  can  be  described  as  at  least  reading  one  data  object  from  each  of  the 
input  streams  and  writing  no  more  than  one  data  object  to  each  of  its  output  streams.  If 
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the  operator  is  time  critical  in  that  there  is  at  least  one  timing  constraint  associated  with  it, 
then  there  will  be  a  maximum  execution  time  (MET)  in  which  other  actions  that  can 
occur  during  firing  will  fit  into  this  interval,  including  evaluating  triggering  conditions, 
calculating  output  values,  and  evaluating  output  guards  [5].  Each  operator  is  a  state 
machine  and  those  operators  that  have  only  one  state  are  call  functions  [6].  It  should  be 
mentioned  that  the  PSDL  state  machines  cannot  be  shared  by  various  subsystems  to 
prevent  hidden  or  unexpected  interactions.  Operators  can  either  be  atomic  or  composite. 
While  the  former  cannot  be  decomposed  in  terms  of  the  PSDL  model,  the  latter  can  be 
decomposed  as  data  and  control  flow  networks  of  lower  level  operators  [2]. 

The  next  component  type  refers  to  abstract  data  types  the  instances  of  which  will 
be  delivered  by  data  streams  (discussed  in  the  next  section).  These  types  are  immutable  so 
there  can  be  no  communication  involving  side  effects.  Also  worth  noting  are  PSDL 
exceptions  which  are  values  of  a  built-in  abstract  data  type  called  EXCEPTION. 
Exceptions  are  encoded  just  like  data  values  to  decouple  the  exceptions  from  the 
scheduling  of  actions  for  handling  them  [2]. 

Also  important  to  note  is  that  each  PSDL  component  has  both  a  specification  and 
implementation  part.  The  specification  part  has  attributes  describing  the  interface,  timing 
characteristics,  and  formal  and  informal  descriptions  of  the  behavior  of  the  operator. 
Those  attributes  consist  of  Generic  Parameters,  Input,  Output,  States,  Exceptions  and 
Timing  Information  [2].  The  two  kinds  of  implementations  are  the  architecture 
descriptions  and  the  code  interface  descriptions.  The  code  interface  descriptions  define 
atomic  components  and  specifies  both  the  implementation  language  and  the  code  module 
name,  while  the  architecture  descriptions  have  dataflow  diagrams,  control  and  timing 
constraints,  requirement  traces,  and  defines  decomposition  of  composite  components.  In 
addition,  the  interface  description  determines  if  the  operator  is  atomic  or  composite  and 
for  the  architecture  description  there  is  a  keyword  specifying  the  underlying  language 
followed  by  the  name  of  the  implementation  module.  The  composite  operators  have  the 
attributes  Communication  Graph,  Internal  Data,  Control  Constraints,  and  Informal 
Descriptions. 
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2.  Data  Streams 


A  stream  is  a  communications  link  between  one  or  more  producer  operators  and 
one  or  more  consumer  operators.  PSDL  has  two  types  of  streams:  a  data  flow  and 
sampled  stream.  The  data  flow  streams  act  like  FIFO  buffers  which  synchronize  data- 
driven  computations  and  whose  values  are  not  lost  or  replicated.  Sampled  streams  act  as 
continuously  available  data  sources  which  can  be  read  or  updated  on  demand  and  whose 
values  can  be  lost  [4].  An  example  of  a  data  flow  stream  would  be  the  transactions  in  a 
system  for  electronic  funds  transfer.  Also  an  example  for  sampled  streams  would  be  an 
operator  that  periodically  updates  a  software  estimate  of  the  system  state  based  on  sensor 
readings  [2]. 

3.  Constraints 

The  control  aspects  of  PSDL  are  specified  implicitly  and  include  whether  an 
operator  is  sporadic  or  periodic,  triggering  conditions  and  output  guards.  A  periodic 
operator  has  a  period  specified  which  controls  its  firing,  while  the  sporadic  operators  are 
triggered  by  arrival  of  new  data  values  possibly  at  irregular  intervals.  In  addition,  there 
are  two  types  of  data  triggers  for  a  PSDL  operator  designated  as  either  ‘Triggered  by  all’ 
or  ‘Triggered  by  Some’.  In  the  first  case,  the  operator  will  fire  when  data  has  arrived  on 
all  the  input  streams.  In  the  second  case,  the  operator  will  fire  when  one/more  of  its 
inputs  receives  a  new  value  [2].  A  timer  is  a  kind  of  state  machine  that  behaves  like  a 
stopwatch  and  is  used  to  affect  such  aspects  of  real  time  systems  as  time-outs  or 
minimum  refresh  rates.  The  operations  used  for  interacting  with  timers  are  Read,  Start, 
Stop,  and  Reset.  PSDL  timers  provide  a  non-local  means  of  control  [2].  Also  in  PSDL 
are  two  kinds  of  conditionals:  the  conditional  execution  of  an  operator  and  the  conditional 
transmission  of  an  output.  The  triggering  condition  is  like  a  guard  for  the  operator.  If  the 
predicate  is  satisfied,  the  operator  will  fire.  Furthermore,  the  conditional  transmission  is 
an  output  guard  which  is  a  predicate  that  controls  output  of  the  operator. 
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Also  worth  mentioning  are  timing  constraints.  The  most  basic  are  those  given  in 
the  PSDL  specification  part  consisting  of  Maximum  execution  time  (MET),  Maximum 
response  time(MRT)  and  the  Minimum  Calling  Period(MCP).  The  MRT  and  MCP  are 
important  for  sporadic  operators.  The  MRT  is  an  upper  bound  on  the  time  between 
arrival  of  a  new  data  value  and  the  time  when  the  last  value  is  put  into  the  output  streams 
in  response  to  the  arrival  of  the  new  data  value.  The  MCP  consists  of  a  lower  bound  on 
the  delay  between  the  arrival  of  a  set  of  inputs  and  the  arrival  of  the  next  set.  Every 
sporadic  operator  with  a  MRT,  must  have  a  corresponding  MCP  [2].  Two  important 
timing  constraints  for  periodic  operators  are  ‘period’  and  ‘finish  within’.  The  former  is 
the  interval  of  time  between  consecutive  triggering  operator  events  and  finish  within  is 
the  upper  bound  on  the  time  interval  in  which  the  MET  occurs.  Finally,  the  latency  is  the 
lower  bound  on  the  time  in  which  data  is  fed  into  the  stream  and  then  read  from  it. 

4.  Conclusion 

The  PSDL  language  has  been  used  for  design  of  large  embedded  systems, 
feasibility  studies,  requirements  analysis  and  the  rapid  prototyping  of  large  real  time 
systems.  This  section  has  introduced  the  reader  to  the  important  concepts  (and  their 
definitions)  regarding  the  semantics  of  PSDL  with  minimal  emphasis  on  hard  real-time 
aspects  of  the  language. 

C.  ADA95  YET  ANOTHER  COMPILER-COMPILER 

The  AY  ACC  tool  allows  Ada  programmers  a  means  for  automatic  construction  of 
parsers  from  a  high  level  description  of  a  context  fi-ee  grammar.  The  input  to  Ayacc 
consists  of  a  BNF  style  specification  of  a  grammar  accompanied  by  a  set  of  Ada  program 
statements  to  be  executed  as  each  rule  is  recognized.  Ayacc  generates  a  set  of  Ada 
program  units  that  acts  as  a  parser  for  the  specified  grammar.  These  units  can  be 
interfaced  to  additional  user  supplied  routines  to  produce  a  functional  program  [1].  As 
explained  in  Appendix  B,  this  tool  will  produce  the  three  packages:  Tokens,  Goto  Table, 
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and  Shift  Reduce  Table  as  well  as  a  procedure  called  yyparse.  The  packages  Goto  Table 
and  Shift  Reduce  Table  contains  the  parsing  tables  used  by  yyparse,  while  Tokens 
contains  the  enumeration  type  returned  by  the  lexical  analyzer.  It  will  be  necessary  for 
the  user  to  supply  yyparse  with  a  lexical  analyzer  and  an  error  reporting  routine.  The 
format  and  detailed  explanation  for  the  ayacc  input  file  and  the  command  line  interface 
for  Ayacc  is  also  covered  in  the  Appendix  B. 

The  parser  generated  by  Ayacc  is  like  a  finite  state  machine  where  the  current  state  is 
at  the  top  of  the  stack.  During  parsing,  the  parser  uses  its  current  state  and  the  value  of 
the  next  token  obtained  by  calling  a  lexical  analyzer  such  as  those  generated  by  the  Ada 
Lexical  Analyzer  Generator  (AFLEX)  [7]  to  perform  one  of  the  following  actions: 
ACCEPT,  ERROR,  SHIFT,  or  REDUCE  defined  in  [1].  The  aflex  input  file  for  PSDL, 
‘parser_lex.r,  defines  the  lexical  tokens  for  the  ayacc  PSDL  parser.  Aflex  can  either  be 
used  for  simple  lexical  analysis  and  statistics,  or  with  Ayacc  as  a  parser  front-end  as  is  the 
case  with  the  PSDL  ayacc  [7]. 
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in.  ADA95  OODBMS  SEARCH  ANALYSIS 


A.  GENERAL 

This  section  describes  the  approaches  and  the  results  for  the  search  analysis  of  an 
OODBMS  which  uses  ADA95  as  an  API.  As  already  mentioned,  it  is  required  that  a 
variety  of  CAPS  objects  be  stored  in  an  OODBMS,  and  that  an  ADA95  programming 
language,  a  complete  Object  Oriented  Programming  (OOP)  language,  be  utilized  to 
access  and  manipulate  those  database  objects.  The  following  four  sections  delineate  the 
four  search  methods  and  results:  Library  search  method.  World  Wide  Web  search 
method.  Email  search  method  and  finally  the  Phone  search  method.  For  each  search 
method  there  is  a  corresponding  appendix  which  lists  the  results  for  the  particular 
method. 

Briefly  stated,  an  OODBMS  includes  a  database  that  stores  and  allows  retrieval  of 
objects  and  classes.  A  real  OODB  provides  complete  support  for  objects,  which  means 
support  for  the  following  object  and  OOP  features:  encapsulation,  inheritance, 
polymorphism,  object  identity  and  references  among  objects.  Encapsulation  is  the 
process  of  combining  data  and  code  relevant  to  the  data  in  one  module  in  order  to  restrict 
access  to  the  object.  In  the  OODBMS,  this  feature  refers  to  the  ability  to  store  code  with 
data  in  the  database  [6].  Inheritance  is  the  code-sharing  mechanism  by  which  new  classes 
of  objects  can  be  defined  in  terms  of  an  existing  or  base  class.  The  classes  derived  from 
the  base  class  can  redefine  the  existing  structure  and  behavior  of  the  base  class  [6].  The 
database  system  must  know  the  class  hierarchy  and  manage  the  object  storage. 
Polymorphism  is  defined  as  the  ability  to  apply  the  same  operation  to  different  classes  of 
objects.  There  are  two  ways  this  feature  is  implemented.  One  way  is  through  subclassing 
where  a  defined  method  for  a  class  is  inherited  by  the  subclasses.  The  second  way  is 
through  overloading  where  the  same  name  is  used  for  methods  in  different  classes  [6]. 
When  an  object  is  read  from  the  database,  it  has  all  the  code  and  data  members  that  it  had 
when  it  was  originally  read.  Object  identity  refers  to  the  fact  that  each  object  in  the 
OODB  has  a  unique  identity  which  distinguishes  it  from  other  objects  [6].  For  C-H-,  the 
object  address  is  the  object  identity,  which  allows  pointer  references  to  establish 
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relationships  among  objects.  Object  oriented  database  systems  integrate  the  object 
identity  in  the  database  with  the  identity  of  objects  in  memory  so  that  it  is  not  necessary 
for  the  programmer  to  maintain  this  relationship  between  the  two  areas  of  storage.  Object 
references  are  association  links  defined  in  each  object’s  class  so  that  objects  can  be  made 
interdependent  [6].  True  object  oriented  database  systems  can  automatically  resolve 
pointer  references  in  your  program’s  objects  and  represents  them  in  the  database.  In 
addition,  some  of  the  basic  database  operations  that  can  be  performed  in  an  OODBMS 
include  storing  objects,  changing  objects,  deleting  objects  and  querying  objects. 

The  Object  Database  Management  Group  (ODMG)  is  an  organized  group  of 
object  oriented  database  system  vendors  engaged  in  defining  the  standards  for  object 
oriented  database  systems.  The  initial  standard,  ODMG-93,  published  in  September 
1993,  covers  the  essentials  for  object  database  programming  especially  the  00  model  and 
the  OOP  language  bindings. 

B.  LIBRARY  SEARCH  RESULTS 

The  library  search  for  an  OODBMS  with  the  Ada95  API  was  conducted  at  the 
Spawar  Systems  Center  (SSC)  topside  library.  The  search  was  done  utilizing  the  Knight- 
Ridder  Information  Inc.,  a  world  leader  in  electronic  information  access  and  delivery. 
This  company  offers  the  DIALOG  and  DataStar  services  which  provide  access  to  more 
than  600  online  databases;  KR  OnDisc,  a  collection  of  nearly  70  files  on  CD-ROM;  and 
KR  SourceOne,  a  comprehensive,  worldwide  document  delivery  service.  In  Appendix  C, 
“LIBRARY  SEARCH  LISTING,  is  the  listing  of  papers  that  fulfill  the  library  search 
criteria  consisting  of  the  following  terms:  Object  Oriented  Database  System  or 
OODBMS  and  Ada95  or  Ada83.  Ada83  was  included  in  the  search  criteria  to  possibly 
increase  the  number  of  hits,  even  though  this  language  is  not  object  oriented  but  is  object 
based.  In  the  three  papers  cited,  only  the  first  two  are  of  interest  since  the  last  is  a  repeat 
of  the  second  paper  listed. 

The  first  paper  I  plan  to  conunent  on  is  listed  in  Appendix  C,  entitled  "Ada/02 
Coupling:  A  Solution  for  an  Efficient  Management  of  Persistence  in  Ada  83",  authored 
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by  Thierry  Millan  and  Pierre  Bazex.  This  paper  introduces  the  concept  of  persistence  in 
Ada  83  through  a  data  environment  consisting  of  a  set  of  variable  identifiers,  their  linked 
data,  and  their  types.  Also  worth  mentioning  from  this  paper  is  that  a  first  prototype  has 
been  developed  in  Ada  83  which  has  not  only  shown  the  feasibility  of  the  Ada/02 
coupling,  but  also  the  feasibility  between  the  Ada  data  model  and  the  ODMG  - 
standardized  object  data  model  used  by  02.  This  paper  refers  to  a  prototype  but  not  an 
actual  OODBMS  which  utilizes  Ada  95.  Also  as  mentioned  below  in  Section  E,  "Phone 
Search  Results",  IVe  already  contacted  the  02  Technology  company  and  they  do  not  have 
a  commercial  OODBMS  which  has  Ada  95  or  Ada  83  as  an  API. 

The  second  paper  listed  in  Appendix  C  is  entitled,  "Ada  persistence  through  an 
OODBMS  02",  authored  by  Pierre  Bazex,  Thierry  Milan  and  Frederic  Mulatero.  This 
paper  discusses  a  method  which  allows  for  the  introduction  of  persistence  in  Ada  and 
how  to  represent  a  persistent  environment  in  Ada  83/Ada  95  as  well  as  the  major 
problems  encountered.  As  mentioned  with  the  first  paper,  that  paper  refers  to  a  prototype 
but  not  an  actual  OODBMS  which  utilizes  Ada  95.  In  conclusion,  the  library  search 
failed  to  locate  a  OODBMS  which  utilizes  either  Ada  83  or  Ada  95  as  an  API. 

C.  WORLD  WIDE  WEB  SEARCH  RESULTS 

In  Appendix  D,  “WORLD  WIDE  WEB  SEARCH  USTING”,  is  a  listing  of 
WWW  sites  which  I  researched  to  locate  an  OODBMS  that  utilized  Ada  83  or  Ada  95  as 
an  API.  The  initial  site  listed  refers  to  the  Ada  Information  Clearinghouse  (AdalC)  which 
is  sponsored  by  the  Ada  Joint  Program  Office  and  has  been  providing  free  information 
about  Ada  for  over  a  decade.  The  AdalC  maintains  close  contact  with  the  Ada 
community  in  order  to  obtain  the  latest  information  on  a  variety  of  Ada  related  topics  to 
include  tools  and  reusable  code.  I  followed  the  relevant  links  without  any  success  and 
also  used  their  web  search  facility  which  again  did  not  yield  any  success  for  an  Ada  API 
OODBMS. 

The  remaining  sites  investigated  were  accomplished  utilizing  the  AltaVista  search 
engine.  AltaVista  provides  access  to  the  largest  Web  index:  31  million  pages  found  on 
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627,000  servers  (1,158,000  host  names),  and  four  million  articles  from  14,000  Usenet 
news  groups.  It  is  accessed  over  31  million  times  per  weekday.  The  sets  of  search 
parameters  were  "ada95  and  object  oriented  database  management  system  and  api"  and 
"ada95  and  oodbms".  AltaVista  retrieved  21  sites  consisting  of  22  links  with  6  links 
being  redundant  so  only  the  16  unique  links  and  their  respective  sites  were  included  in 
Appendix  D.  Each  of  these  unique  sites  were  examined  and  following  any  further 
relevant  links,  I  was  unsuccessful  in  locating  an  OODBMS  which  utilizes  Ada  95  as  an 
API. 


D.  EMAIL  SEARCH  RESULTS 

In  Appendix  E,  “EMAIL  SEARCH  LISTING”,  is  a  listing  of  email  contacts  (and 
responses)  which  I  initiated  to  locate  an  OODBMS  that  utilized  Ada  83  or  Ada  95  as  an 
API.  The  first  message  was  from  "Michael  Card",  a  technical  representative  for 
Lockheed  Martin  Corporation  and  a  member  of  the  ODMG.  In  this  message  Mr.  Card 
discusses  an  OODBMS  called  the  Functionally  Integrated  Resource  Manager  (FIRM)  that 
is  being  developed  under  contract  to  Wright  Laboratory.  His  paper  [9]  entitled,  "FIRM: 
An  Ada  Binding  to  ODMB-93  1.2",  details  the  Ada  binding  that  the  FIRM  team  designed 
using  the  ODMG  object  model  and  C++  language  binding.  As  per  the  message,  this 
product  will  not  be  avziilable  as  a  GOTS  until  sometime  next  year. 

The  second  message  included  a  response  from  Brad  Balfour  who  is  a  member  of 
ACM  SIGAda  and  a  developer  at  OIS  System  and  formerly  with  CACI.  According  to 
Mr.  Don  Rosen  of  the  AdalC,  Mr.  Balfour  is  very  knowledgeable  about  the  Ada 
Community.  From  his  message  it  is  clear  he  is  not  aware  of  any  commercial  OODBMS 
products  that  offer  an  Ada  API. 

The  third  message  listed  in  Appendix  E  where  the  response  received  was  from 
Don  Rosen  the  technical  contact  for  the  AdalC.  He  was  not  aware  of  any  Ada  API  tool 
that  fits  the  requirements.  He  searched  the  AdalC  tools  database  for  an  OODBMS  with  an 
Ada95  API  and  posted  an  inquiry  to  the  internet  news  group  "comp.lang.ada"  requesting  , 
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any  commercial  or  shareware  products  that  matched  my  requirements.  In  both  cases  the 
results  were  not  positive. 

The  fourth  message  was  from  Douglas  Barry,  the  president  of  Barry  &  Associates, 
Inc.  and  executive  director  of  the  ODMG.  He  was  not  aware  of  any  commercial 
OODBMS  with  Ada95  as  an  API.  His  company  maintains  a  web  site  at  the  following  url: 
“http://www.odbmsfacts.com/choices.html/”.  This  company  provides  facts  on  object 
databases,  object-relationzil  databases,  object-mangers,  and  object-relational  mapping 
products  through  consulting,  publishing,  and  education.  This  url  is  listed  in  Appendix  D. 
It  was  searched  to  locate  the  Ada  API  OODBMS  without  success. 

E.  PHONE  SEARCH  RESULTS 

In  Appendix  F,  “PHONE  SEARCH  LISTING”,  is  a  listing  of  database  companies 
which  I  contacted  to  locate  an  OODBMS  that  utilized  Ada  83  or  Ada  95  as  an  API.  This 
listing  of  companies  was  drawn  from  the  last  page  of  [10],  and  I  listed  the  database 
companies  in  the  Appendix  from  which  I  received  replies  regarding  my  OODBMS  query. 
In  [10],  an  overview  was  presented  covering  the  OODBMS  products  and  their  features 
represented  by  various  bar  graph  charts.  I  contacted  a  representative  knowledgeable  in 
there  database  management  system  product  line  for  each  company  listed.  In  each  instance 
I  was  told  that  their  OODBMS  did  not  have  Ada95  as  an  API. 
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IV.  REQUIREMENTS  TRACING  DESIGN 


As  mentioned  previously  the  changes  necessary  to  support  requirements  tracing 
involve  extending  the  PSDL  software  and  the  Ayacc  source  file.  The  two  main  PSDL 
component  types  to  be  extended  are  the  operator  and  the  data  type,  each  of  which  is 
specified  in  the  PSDL  grammar  included  in  Appendix  A.  The  Ayacc  source  file  for  the 
PSDL  parser  is  included  in  Appendix  H  and  consists  of  the  following  three  sections: 
token  declarations,  rules  and  user  declarations.  The  token  declarations  section  is  used  to 
specify  the  generated  tokens  package.  The  rules  section  defines  the  grammar  to  be 
parsed.  Each  rule  can  include  an  associated  action  to  be  executed  whenever  the  rule  is 
recognized  by  the  parser.  The  final  user  declarations  section  provides  the  ‘with’  and 
‘use’  clauses  for  the  tokens,  parse  table  and  text_io  packages,  calls  the  user  supplied 
routines,  YYLex  and  YYError,  and  can  include  other  user  defined  functions  or 
procedures. 

Several  global  variables  defined  in  user  declarations  section  are  involved  in  the 
building  of  the  PSDL  operator  and  type  components.  There  are  12  global  variables 
involved  in  the  construction  of  the  psdl  type  and  28  global  variables  utilized  in  the 
building  of  the  psdl  operator.  Appendix  H  lists  each  of  these  variables  and  describes  the 
corresponding  data  type  for  these  types.  The  planned  data  type  extension  affects  the 
initial  builds  defined  in  the  action  section  for  the  data  type  and  operator,  which  is 
included  in  the  rules  section  of  the  parser  source  file.  The  actual  builds  occur  in  the 
package  named  psdl_component_pkg,  which  creates  a  record  to  completely  define  the 
data  or  operator  types.  The  final  design  decision  involves  using  the  package,  psdl_io, 
which  provides  the  standard  i/o  facilities  for  the  psdl  program  to  output  the  data  type  or 
operator  names  and  ids  to  a  file.  The  psdl  program  source  files  affected  by  the  above 
described  changes  are:  psdl_io.ads,  psdl_io.adb,  psdl_component_pkb.ads,  and 
psdl_component_pkb.adb.  These  packages  are  included  in  Appendix  G. 
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V.  REQUIREMENTS  TRACING  IMPLEMENTATION 


A.  GENERAL 

The  requirements  variable,  ’reqmts_trace’  was  utilized  in  the  grammar  section  of 
the  Ayacc  source  file.  The  implementation  was  included  as  far  as  defining  the  actions 
and  procedures  necessary  to  capture  and  store  the  ids  per  component.  The  definition  of 
the  requirements  variable  was  similar  to  the  keywords  variable  in  that  each  consisted  of  a 
token  followed  by  the  variable,  id_list.  The  id_list  is  defined  as  a  one  or  more  identifiers 
separated  by  commas  and  each  identifier  consists  of  a  letter  (includes  underscore) 
followed  by  zero  or  more  alphanumeric  characters.  Rather  than  define  the  requirements 
variable  as  the  type  ’psdl_id_set’,  the  choice  was  the  type  ’psdl_id_sequence’  because  this 
type  preserves  all  the  ids  whereas  the  former  type  only  stores  the  unique  ids.  The  same 
requirement  id  may  occur  in  more  than  one  place  within  a  type  or  operator  component, 
making  it  is  important  to  use  the  correct  type  for  storage  purposes. 

B.  AYACC  SOURCE  EXTENSION 

Aside  from  the  way  in  which  the  requirements  variable  was  defined  as  described 
above,  the  associated  requirements  global  variable  was  created  in  the  parser  package  body 
located  in  the  final  section  of  the  Ayacc  source  file.  Each  time  the  requirements  variable 
is  parsed,  the  call  is  made  to  the  psdl_id_sequence_pkg.append  procedure  which  appends 
the  current  id  sequence  to  the  previous  sequence  (if  any)  and  returns  the  new  sequence  of 
ids  in  the  requirements  variable.  Each  time  a  data  type  or  operator  is  parsed,  a  eall  is 
made  in  the  action  segment  to  build  the  psdl  type  or  operator  respectively.  The  global 
requirements  variable  is  added  to  the  parameter  list  of  the  build  calls  since  the 
requirement  ids  can  be  included  in  the  operator  or  data  type  structures  as  described  in  the 
psdl  grammar.  The  actual  builds  are  performed  in  the  package  ’psdl_component_pkg’, 
through  procedure  calls  from  within  the  final  section  of  the  Ayacc  source  file.  After  the 
build  is  performed,  the  ’output_trace’  procedure  is  called  which  passes  the  component 
pointer.  This  procedure,  as  defined  in  the  final  section  of  the  ayacc  source  file,  first 
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checks  that  the  global  requirements  variable  is  not  empty  before  calling  the 
‘put_reqm_ids’  procedure,  which  is  defined  in  the  psdl_io  package.  The  ‘put_reqm_ids’ 
procedure  creates  a  file  and  stores  each  component  name  along  with  the  respective  set  of 
requirement  ids.  After  returning  from  the  'put_reqm_ids'  procedure,  the  global 
requirements  variable  is  reset  to  empty. 


C.  PSDL  SOURCE  EXTENSION 

As  described  above,  the  actual  builds  occur  in  the  package  'psdl_component_pkg'. 
Since  the  calls  to  the  builds  in  the  package  are  passing  the  global  requirements  variable,  it 
was  necessary  to  add  another  requirements  variable  in  the  appropriate  places  within  each 
parameter  list.  Each  operator  or  data  type  build  consists  of  creating  a  record  in  which 
there  exists  a  requirements  id  sequence  field.  Also  a  function  called  'requirements'  was 
created  in  this  package  which  when  called  with  a  component  pointer  returns  the  sequence 
of  requirements  ids  that  were  stored  in  the  component.  This  function  is  similar  to  the 
function  'keywords'  which  when  called  with  a  component  pointer  returns  the  associated 
list  of  keywords.  Therefore,  another  way  to  return  the  appropriate  list  of  requirement  ids 
to  the  'output_trace'  procedure  involves  calling  this  function  rather  than  relying  on  the 
global  requirements  variable.  Both  approaches  were  utilized  in  various  tests  and  in  each 
case  the  same  set  of  ids  and  component  names  were  stored  in  a  file. 

The  remaining  procedure  'put_reqm_ids'  as  mentioned  above  stores  the  operator  or 
data  type  name  followed  by  the  sequence  of  requirement  ids  in  the  file,  'test.reqs'.  Each 
time  this  procedure  is  called,  the  file  just  mentioned  is  recreated,  thereby  wiping  out  old 
contents  and  storing  only  those  data  type  or  operator  names  that  have  requirement  ids  as 
well  as  the  ids  separated  by  commas. 
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VI.  CONCLUSION 


This  research  provides  an  important  link  between  the  analysis,  design  and 
implementation  phases  of  a  software  engineering  project  by  allowing  the  requirement  ids 
to  be  captured  and  stored  with  their  respective  psdl  components.  With  this  vital  link 
implemented,  the  analyst  can  be  assured  that  the  analysis  phase  more  fully  supports  the 
later  stages  of  the  lifecycle  in  that  all  the  requirements  are  represented  in  those  phases, 
and  that  each  step  of  the  design  process  meets  the  necessary  requirements. 

This  paper  also  demonstrated  that  currently  there  is  no  OODBMS  with  an  ADA95 
API.  As  mentioned  previously,  a  Michael  Card  with  Lockheed  Martin  is  involved  with  a 
project  developing  an  OODBMS  called  FIRM,  and  work  on  an  ADA  API  could  begin 
sometime  next  year.  PSDL  software  relies  on  various  complex  data  objects  such  as 
mappings,  graphs  and  sequences  and  therefore  requires  an  OODB  for  storage  purposes 
[8].  Once  an  OODBMS  with  an  ADA95  API  becomes  available,  a  recommended  course 
of  action  would  be  to  store  the  component  names,  requirement  ids,  and  various  PSDL 
abstract  data  types  in  such  a  database.  Another  suggestion  would  be  to  capture  the 
segment  information  of  each  component  that  has  requirements  ids  and  store  those 
variable  names  along  with  their  ids.  Through  these  suggestions,  the  analyst  or  designer 
can  easily  examine  the  database  to  extract  all  the  necessary  information  regarding  any 
PSDL  program  or  PSDL  component. 
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APPENDIX  A.  PSDL  GRAMMAR 


Optional  items  are  enclosed  in  [  square  brackets  ].  Items  which  may 
appear  zero  or  more  times  appear  in  {  braces  }.  Terminal  symbols  appear 
in  "  double  quotes  ".  Groupings  appear  in  ( parentheses ). 


psdl 

=  {component} 

component 

=  data_type 
I  operator 

data_type 

=  "type"  id  type_spec  type_impl 
type_spec 

=  "specification"  ["generic"  type_decl]  [type_decl] 
("operator"  op_name  operator_spec} 
[functionality]  "end" 

operator 

=  "operator"  op_name  operator_spec  operator_impl 
operator_spec 

=  "specification"  {interface}  [functionality]  "end" 
interface 

=  attribute  [reqmts_trace] 
attribute 

=  "generic"  type_decl 
1  "input"  type_decl 
I  "output"  type_decl 

I  "states"  type_decl  "initially"  initial_expression_list 
I  "exceptions"  id_list 
I  "maximum  execution  time"  time 

type_decl 
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=  id_list type_name  idjist type_name} 

t5^e_name 
=  id 

I  id  "["  type_decl  "]" 
id_list 

=  id{V’  id} 

reqmts_trace 

=  "required  by"  id_list 

functionality 

=  [keywords]  [informal_desc]  [formal_desc] 
keywords 

=  "keywords"  id_list 

infonnal_desc 

=  "description"  "{"text"}" 

fonnal_desc 

=  "axioms" "{"  text "}" 

type_impl 

=  "implementation"  id  id  "end" 

I  "implementation"  type_name  ("operator"  op_name  operator_impl}  "end" 
operator_impl 

=  "implementation"  id  id  "end" 

I  "implementation"  psdl_impl  "end" 

psdl_impl 

=  data_flow_diagram  [streams]  [timers]  [control_constraints] 
[informal_desc] 

data_flow_diagram 

=  "graph"  [vertex]  [edge] 

vertex 

=  "vertex"  op_id  [":"  time]  [property] 

—  time  is  the  maximum  execution  time 


edge 

=  "edge"  id  [":"  time]  op_id  "->"  op_id  [property] 
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--  time  is  the  latency 


property 

=  "property"  id  "="  expression 
op_id 

=  [id  op_name  ["("  [idjist]  "I"  [idjist] ")"] 
streams 

=  "data  stream"  type_decl 
timers 

=  "timer"  idjist 
control_constraints 

=  "control  constraints"  constraint  {constraint} 

constraint 

=  "operator"  op  Jd 

["triggered"  [trigger]  ["if  expression]  [reqmts_trace]] 
["period"  time  [reqmtsjrace]] 

["finish  within"  time  [reqmts_trace]] 

["minimum  calling  period"  time  [reqmtsjrace]] 
["maximum  response  time"  time  [reqmts_trace]] 

{ constraint_options } 

constraint_options 

=  "output"  idjist  "if  expression  [reqmts_trace] 

I  "exception"  id  ["if  expression]  [reqmtsjrace] 

I  timer_op  id  ["if  expression]  [reqmtsjrace] 

trigger 

=  "by  all"  idjist 
I  "by  some"  idjist 

timer_op 

=  "reset  timer" 

I  "start  timer" 

I  "stop  timer" 

initial_expressionJist 

=  initial_expression  {","  initial_expression} 

initial_expression 
=  "true" 
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I  "false" 

I  integer_literal 
I  real_literal 
I  string_literal 
lid 

I  type_name  op_name  ["("  initial_expression_list ")"] 
I "("  initial_expression  ")" 

I  initial_expression  binary_op  initial_expression 
I  unary_op  initial_expression 


binary_op 

=  "and"  I  "or"  I  "xor" 

I  I  ii^it  I  II _ n  I  it^ _ II  I  11^ _ II  I  ly _ It 

I  I  I  I  mH:..  I  I  I  I 


unary_op 

=  "not"  I  "abs"  I I "+" 


time 

=  integer_literal  unit 


unit 

=  "microsec" 

I  "ms" 

I "sec" 

I  "min" 

I  "hours" 

expression_list 

=  expression  expression} 

expression 
=  "true" 

I  "false" 

I  integer_literal 
I  time 

I  real_literal 
I  stringjiteral 
lid 

I  type_name  op_name  ["("  expression_list ")"] 
I "("  expression ")" 

I  expression  binary_op  expression 
I  unary_op  expression 

op_name 
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=  id 
id 

=  letter  {alpha_numeric} 
real_literal 

=  integer_literal integer_literal 

integer_literal 

=  digit  {digit} 

stringjiteral 

= . (char) . 

char 

=  any  printable  character  except  "}" 

digit 

=  "0 ..  9" 

letter 

=  "a ..  z" 

1  "A ..  Z" 

alpha_numberic 
=  letter 
I  digit 


text 

=  {char} 


25 


26 


APPENDIX  B.  AYACC  REFERENCE  PAGES 


AYACC(local)  MISC.  REFERENCE  MANUAL  PAGES  AYACC(local) 

NAME 

ayacc  -  An  Ada  LALR(l)  parser  generator 
SYNOPSIS 

ayacc  {command  line  interface  parameter  associations} 

DESCRIPTION 

Avacc  provides  Ada  programmers  with  a  convenient  tool  for  the  automatic 
construction  of  parsers  from  a  high  level  description  of  a  context  free  grammar. 
The  input  to  Avacc  consists  of  a  BNF-like  specification  of  a  grammar  accom¬ 
panied  by  a  set  of  Ada  program  statements  to  be  executed  as  each  production  is 
recognized.  Avacc  outputs  a  set  of  Ada  program  units  that  act  as  a  parser  for  the 
specified  grammar;  these  program  units  may  be  interfaced  to  additional  user- 
supplied  routines  to  produce  a  functional  program. 

Avacc  will  produce  a  procedure  called  wparse  and  three  packages:  Tokens. 
Goto  Table,  and  Shift  Reduce  Table.  All  of  these  packages  must  be  visible  to 
wparse.  Package  Tokens  contains  the  enumeration  type  that  is  returned  by  the 
lexical  analyzer.  Packages  Goto  table  and  Shift  Reduce  Table  contain 
the  parsing  tables  used  by  wparse. 

The  user  must  supply  wparse  with  a  lexical  analyzer  and  an  error  reporting 
routine.  The  declarations  of  these  routines  should  look  like  the  following: 

function  YYLEX  return  TOKENS.TOKEN; 

procedure  YYERROR(MESSAGE:  in  STRING); 

The  format  of  the  avacc  input  file  must  be  as  follows, 

declarations  section 
%% 

rules  section 
%% 

user  declarations  section 
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The  declarations  section  is  used  to  specify  the  generated  tokens  package.  A 
token  declaration  consists  of  the  keyword  %token  followed  by  a  list  of  token 
names  that  may  optionally  be  separated  by  commas.  Token  names  must 
follow  Ada  enumeration  type  naming  conventions.  Avacc  provides  a  means  to 
associate  an  Ada  data  type  with  a  grammar  symbol.  This  type  must  be  called 
YYSTvpe  and  must  be  declared  in  the  tokens  declarations  section  and  be 
surrounded  by  ’{ ”} ’s  .  e.g. 

Sun  Release  4.1  Last  change:  3  June  1988  1 
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{ 

subtype  YYSType  is  Integer; 

} 

Since  types  declared  in  this  section  may  require  visibility  to  additional  packages, 
context  clauses  for  the  tokens  package  may  be  defined  by  using  the  ke5words 
%with  and  %use.  These  keywords  must  be  located  before  the  YYStvpe  declara¬ 
tion. 

The  rules  section  defines  the  grammar  to  be  parsed.  Each  rules  consists  of  a 
nonterminal  symbol  followed  by  a  colon  and  a  list  of  grammar  symbols 
terminated  by  a  semicolon.  For  example,  a  rule  corresponding  to  a  street 
address  might  be  written  as. 

Address:  Street  City  State  Zip; 

A  vertical  bar  may  be  used  to  combine  rules  with  identical  left  hand  sides. 
Nonterminal  names  may  be  made  up  of  alphanumeric  characters  as  well  as 
periods  and  underscores.  Ada  reserved  words  are  allowed.  Unlike,  vacc  all 
tokens  and  nonterminal  names  are  case  insensitive.  The  start  symbol  of  the 
grammar  may  be  specified  using  the  keyword  %start  followed  by  the  symbol.  If 
the  start  symbol  is  not  specified,  avacc  will  use  the  left  hand  side  of  the  first 
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grammar  rule. 


Avacc  allows  each  grammar  rule  to  have  associated  actions  which  are  executed 
whenever  the  rule  is  recognized  by  the  parser.  An  action  consists  of  Ada  statements 
enclosed  in  braces  and  placed  after  the  body  of  a  rule.  Avacc  uses  a  pseudo-variable 
notation  to  denote  the  values  associate  values  with  nonterminal  and  token  symbols. 
The  left  hand  side  of  a  rule  may  be  set  to  a  value  by  an  assignment  to  the  variable,  $$. 
For  example,  if  YYSTvpe  is  an  integer,  the  action: 

A:BCD{$$  :=1;} 

sets  the  value  of  A  to  1.  Values  of  symbols  on  the  right  hand  side  of  the  rule, 
may  be  accessed  through  the  variables  $l..$n  ,where  n  refers  to  the  nth  element  of 
the  right  hand  side.  For  example. 

A:B  VC  {$$  :=$l+$3;} 

sets  A  to  the  sum  of  the  values  of  B  and  C. 

Sun  Release  4.1  Last  change:  3  June  1988  2 
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The  user  declarations  section  is  optional.  By  default,  avacc  generates  a  parameterless 
procedure,  YYParse.  If  the  user  desires,  the  procedure  may  be  incorporated  within  a 
package  provided  in  this  section.  The  user  must  use  the  key  marker,  ##,  to  indicate  where 
the  body  of  YYParse  is  to  be  inserted.  The  user  is  responsible  for  providing  with  clauses 
for  the  tokens,  parse  table,  and  Text  IQ  packages. 

COMMAND  LINE  INTERFACE 

Arguments  are  passed  to  avacc  via  a  command  line  interface.  This  command  line 
interface  models  the  syntax  and  semantics  of  Ada  procedure  calls,  supporting  both 
named  and  positional  notation  as  well  as  default  initialization.  When  the  avacc 
command  is  entered  without  arguments,  the  following  specification  is 
displayed. 
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“  Ayacc:  An  Ada  Parser  Generator. 

type  Switch  is  (On,  Off); 

procedure  Ayacc  (File  :  in  String; 

C_Lex  :  in  Switch  :=  Off; 

Debug  :  in  Switch  :=  Off; 

Summary  :  in  Switch  :=  On; 

Verbose  :  in  Switch  :=  Off; 

Extension  :  in  String  :=  ".a"); 

—  File  Specifies  the  Ayacc  Input  Source  File. 

—  C_Lex  Specifies  the  Generation  of  a  G’Lex 

Interface. 
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—  DebugSpecifies  the  Production  of  Debugging  Output 

By  the  Generated  Parser. 

Specifies  the  Printing  of  Statistics  About  the 
Generated  Parser. 

Specifies  the  Production  of  aHuman  Readable 
Report  of  States  in  the  Generated  Parser. 

Specifies  the  File  Extension  to  be  Used  for 
Generated  Ada  Files. 

The  following  examples  are  legal  invocations  of  avacc 

ayacc  ("file.y"); 

ayacc  ("file.y.  Verbose  =>  On,  Extension  =>  ".ada");  Sun  Release  4.1 
Last  change:  3  June  1988  3 
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For  friendlier  usage,  some  Ada  rules  have  been  relaxed, 

1)  Final  semicolon  on  the  procedure  call  is  optional.  2)  Outermost 

parentheses  are  optional. 

3)  Parentheses  around  aggregate  parameters  are  optional  when  the 
aggregate  consists  of  only  one  component. 

4)  Quotes  around  string  literals  are  optional. 

making  the  following  examples  legal  invocations  as  well. 

ayacc  file.y 

ayacc  file.y  Verbose  =>  On  Extenstion  =>  .ada 

Note:  Unix  will  interpret  the  =>  and  parantheses  prior  to  passing  arguments  to 
alex.  As  a  result,  they  must  be  escaped  on  the  command  line  to  prevent 
interpretation,  i.e.  =>  must  be  typed  in  as  =\>. 


--  Summary 
“  Verbose 
—  Extension 


FILES 

file.y  the  input  file  to  Avacc 
file.ada  the  generated  parser 
file.goto.ada 
file.shift_reduce.ada 
file.tokens.ada 


package  Goto  Table 
package  Shift  Reduce  Table 
package  Tokens 
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file,  verbose  the  verbose  output 

file.c_lex.ada  package  c  lexforinterfacingwithlex 

file.h  the  C  include  file  for  interfacing 

with  lex 


BUGS 

send  questions  and  comment  to  ayacc-info@ics.uci.edu 
send  bug  reports  to  ayacc-bugs@ics.uci.edu 

SEE  ALSO 

Ayacc  User’s  Manual 

yacc(l),  lex(l),  alex(local)  Sun  Release  4.1  Last  change:  3  June  1988 
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APPENDIX  C.  LIBRARY  SEARCH  LISTING 


ds 

Set  Items  Description 

51  3  (OBJECT()ORIENTED()DATABASE()MANAGEMENT()SYSTEM  OR 
OODBMS  AND  (ADA95  OR  ADA()95  OR  ADA83  OR  ADA()83) 

52  2  RD  (unique  items) 

?t  1/5/all 

1/5/1  (Item  1  from  file:  2) 

DIALOG(R)File  2:INSPEC 

(c)  1997  Institution  of  Electrical  Engineers.  All  its.  reserv. 

5398529  INSPEC  Abstract  Number:  C961 1-6160J-023 

Title:  Ada/02  coupling:  a  solution  for  an  efficient  management  of  persistence  in 
*Ada*  *83* 

Author(s):  Millan,  T.;  Bazex,  P. 

Author  Affiliation:  IRTT,  Univ.  Paul  Sabatier,  Toulouse,  France 
Conference  Title:  Reliable  Software  Technologies  -  Ada-Europe  ’96.  1996 
Ada-Europe  International  Conference  on  Reliable  Software  Technologies.  Proceedings 
p.396-412 

Editor(s):  Strohmeier,  A. 

Publisher:  Springer- Verlag,  Berlin,  Germany 

Publication  Date:  1996  Country  of  Publication:  Germany  xi+5 1 1  pp. 

ISBN:  3  540  61317  X  Material  Identity  Number:  XX96-01477 
Conference  Title:  Proceedings  of  Ada-Europe  ^96  Conference  in  cooperation  with 
Reliable  Software  Technologies 

Conference  Date:  10-14  June  1996  Conference  Location:  Montreaux,  Switzerland 
Language:  English  Document  Type:  Conference  Paper  (PA)  Treatment:  Practical  (P) 
Abstract:  We  introduce  the  concept  of  persistence  in  *Ada*  *83*  through  a  data 
environment  consisting  of  a  set  of  variables’  identifiers,  their  linked  data  and  their 
types.  In  general  this  environment  is  represented  as  an  oriented  graph  which  expresses 
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the  links  between  data.  In  that  context,  a  persistent  environment  is  a  subset  (subgraph) 
of  a  data  environment  defined  from  identifiers  of  persistent  variables.  The  persistence  of  a 
data  environment  allows  the  subgraph  to  persist  after  the  run-time  of  the  program 
and  so  to  be  used  again.  We  first  describe  the  representation  of  a  persistent  environment 
in  *Ada*  *83*  and  its  management  through  the  02  database  management  system.  This 
system  manages  persistence,  integrates  the  transactional  aspect  and  manages 
simultaneous  accesses.  Finally,  we  present  the  problems  inferred  from  persistence 
management  through  an  *object*-*oriented*  *database*  *management*  *system*.  (18 
Refs) 

Descriptors:  Ada;  compiler  generators;  data  structures;  directed  graphs;  object-oriented 
databases;  object-oriented  programming;  programming  environments;  transaction 
processing 

Identifiers:  *Ada*  *83*;  data  environment;  identifiers;  linked  data;  types;  oriented 
graph;  persistent  variables;  subgraph;  02  *object*-  *oriented*  *database*  *management* 
*system*;  transactional  aspect;  simultaneous  accesses 

Class  Codes:  C6160J  (Object-oriented  databases);  C6140D  (High  levellanguages); 
C6150C  (Compilers,  interpreters  and  other  processors)  Copyright  1996,  lEE 
1/5/2  (Item  2  from  file:  2) 

DIALOG(R)File  2:INSPEC 

(c)  1997  Institution  of  Electrical  Engineers.  All  its.  reserv. 

5046395  INSPEC  Abstract  Number:  C95 10-6 1  lOJ-039 
Title:  Ada  persistence  through  an  *OODBMS*  02 
Author(s):  Bazex,  P.;  Millan,  T.;  Mulatero,  F. 

Author  Affiliation:  IRIT,  Univ.  Paul  Sabatier,  Toulouse,  France 
Journal:  Ada  User  Journal  vol.l6,  no.2  p.71-82 
Publication  Date:  June  1995  Country  of  Publication:  Netherlands 
CODEN:  AUJOET  ISSN:  0268-652X 
Language:  English  Document  Type:  Journal  Paper  (JP) 

Treatment:  Practical  (P) 
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Abstract:  The  paper  presents  a  method  that  allows  the  introduction  of  persistence  in 
Ada.  An  environment  has  a  graph  structure:  is  composed  of  a  set  of  identifiers,  their 
linked  data  and  their  types.  A  persistent  environment  is  a  subset  of  an  environment, 
defined  from  identifiers  called  persistent  roots,  their  types  and  all  data  linked  to  them. 
The  persistence  of  an  environment  is  a  property  that  lets  its  subgraph  remain  existant 
when  run-time  ends.  In  order  to  be  implicit,  the  persistence  must  respect  the 
orthogonality,  propagation  and  transparency  rules.  The  paper  shows  how  to  represent  a 
persistent  environment  in  *Ada83*  and  *Ada95*  and  the  major  problems  encountered. 
We  are  realizing  a  prototype  in  collaboration  with  02-Technology.  This  company 
supplies  the  02  software  as  the  underlying  system  of  our  prototype.  (17  Refs) 
Descriptors:  abstract  data  types;  Ada;  object-oriented  databases;  object-oriented 
languages;  object-oriented  programming;  programming  environments. 

Identifiers:  Ada  persistence;  02  *OODBMS*;  graph  structure;  identifiers;  linked  data; 
types;  persistent  environment;  persistent  roots;  subgraph;  orthogonality;  propagation; 
transparency  rules;  *Ada83*;  *Ada95*; 

02-Technology;  02  software 

Class  Codes:  C6110J  (Object-oriented  programming);  C6160J  (Object-oriented 
databases);  C6140D  (High  level  languages);  C6120  (File  organisation);  C6115 
(Programming  support) 

Copyright  1995,  lEE 
1/5/3  (Item  1  from  file:  8) 

DIALOG(R)File  8:Ei  Compendex(R) 

(c)  1997  Engineering  Info.  Inc.  All  rts.  reserv. 

04229402  E.I.  No:  EIP95082821464 
Title:  Ada  persistence  through  an  *OODBMS*  02 
Author:  Bazex,  Pierre;  Millan,  Thierry;  Mulatero,  Frederic 
Corporate  Source:  Universite  Paul  Sabatier,  Toulouse,  Fr 
Source:  Ada  User  Journal  v  16  n  2  Jun  1995.  p  71-82 
Publication  Year:  1995 
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CODEN:  AUJOET  ISSN:  0268-652X 
Language:  English 

Document  Type:  JA;  (Journal  Article)  Treatment:  G;  (General  Review) 

Journal  Announcement:  9510W3 

Abstract:  This  paper  presents  a  method  that  allows  the  introduction  of  persistence  in 
Ada.  An  environment  has  a  graph  stmcture:  is  composed  of  a  set  of  identifiers,  their 
linked  data  and  their  types.  A  persistent  environment  is  a  subset  of  an  environment, 
defined  from  identifiers  called  persistent  roots,  their  types  and  all  data  linked  to  them. 
The  persistence  of  an  environment  is  a  property  that  lets  its  subgraph  remain  existent 
when  run-time  ends.  In  order  to  be  implicit,  the  persistence  must  respect  the 
orthogonality,  propagation  and  transparency  rules.  This  paper  shows  how  to  represent  a 
persistent  environment  in  *Ada83*  and  *Ada95*  and  the  major  problems  encountered. 
We  are  realizing  a  prototype  in  collaboration  with  02-Technology.  This  company 
supplies  the  02  software  as  the  underlying  system  of  our  prototype.  (Author  abstract) 
Refs.  Descriptors:  *Ada  (programming  language);  Database  systems;  Object  oriented 
programming;  Data  structures;  Graph  theory;  Computer  software;  Computer  simulation 
Identifiers:  Ada  persistence;  Persistent  environment;  Persistent  graph;  Persistent  root; 
Reusability 
Classification  Codes: 

723. 1 . 1  (Computer  Programming  Languages) 

723.1  (Computer  Programming);  723.3  (Database  Systems);  723.2  (Data  Processing); 

921.4  (Combinatorial  Mathematics,  Includes  Graph  Theory,  Set  Theory); 

723.5  (Computer  Applications) 

723  (Computer  Software); 

921  (Applied  Mathematics) 

72  (COMPUTERS  &  DATA  PROCESSING); 

92  (ENGINEERING  MATHEMATICS)  ? 
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APPENDIX  D.  WORLD  WIDE  WEB  SEARCH  LISTING 


http://sw-eng.falls-church.va.us/AdaIC/tools 
No  Title 

Newsgroups:  comp.object,comp.answers,news.answers  Path:... 

http://puma.join.ad.jp/tech/faq-e/misc/misc-comp-object-faq  -  size  650K  - 12  Apr  96 
The  Object-Oriented  Page 

The  Object-Oriented  Page.  Last  updated:  December  05,  1996.  Because  OO  info  is 
increasingly  populating  the  web  and  several  excellent  00  search  engines  and.. 

http://doradus.einet.net/galaxy/Engineering-and-Technology/Computer- 
Technology/Object-Oriented-Systems/ricardo-devis/oo.html  -  size  69K  -  6  Dec  96 
http://www.well.com/user/ritchie/oo.html  -  size  69K  -  6  Dec  96 
The  Obiect-Oriented  Page 

The  Object-Oriented  Page.  Last  modified:  September  25,  1995.  You  will  find  here  a  lot  of 
links  to  object-oriented  info,  as  well  as  comments  on...  http:  //banjo.isse.kuis.kyoto- 
u.ac.jp/~subieta/NotMyPapers/ObOrLinks.html  -  size  44K  -  29  Nov  95 
Informacidn  sobre  Tecnoloeias  Orientadas  a  Obietos 

Nuestro  agradecimiento  a.  Ricardo  Devis  Botella  Presidente  de  APT02  Presidente  de 
INFOPLUS  S.  L.  por  permitimos  usar  su  Pagina  Orientada  a  Objetos.  http: 
//www3.uniovi.es/UniOvi/Apartados/Otros/oviedo3/info3/princ.htm-size  56K-19  Jun  96 
No  Title 

COMP.OBJECT  FAQ  Version:  1.0.8  Date:  5/31/1995  Author:  Bob  Hathaway  Geodesic 
Systems,Inc.  Cyberdyne  Systems  Corporation  rjh@geodesic.com.. .http: 
//gedeon.ttt.bme.hu/~mosko/dbms/oodb.faq  -  size  617K  -  27  Feb  96 
Ada  FAQ:  Programming  with  Ada 

From:M.Kempe@ieee.org(MagnusKempe)Newsgroups:comp.lang.ada,comp.answers,ne 
ws.answers  Distribution: world  Subject:  Ada  FAQ:  Programming  with  Ada  (part. 
http://www.adahome.com/FAQ/programming.html  -  size  140K  -  21  Oct  96 
Flinders  University,  RAD 
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SEE  Home  I  People  I  Publications  I  Projects  I CS  Dept  Home  ]  RAD:  Research  Afternoon 
Discussions.  RAD  is  organised  by  the  post  graduates  students,  it  is... 
http://tuvalu.cs.flinders.edu.au/Local/rad.html  -  size  12K  -  25  Feb  97 
No  Title 

techreportfSabatellaM 1988a,  author  ="Sabatella,  Marc",  institution  ="University  of 
California  Berkeley,  Department  of  Computer  Science",  title="{B  larking. 
http://www.lpac.ac.uk/SEL-HPC/Articles/DataBase/comp.misc.bib  -  size  31K  -  22  Jan  97 
Persistence  in  Ada  (25-Mar- 1996) 

Persistence  in  Ada.  Persistence  Extensions  to  Ada95.  A  Joint  project  between  Univ  of 
Adelaide  and  DSTO  to  add  support  for  (almost)  orthogonal  persistence.. 
http://www.dstc.edu.au/AU/staff/crawley/ada/persistence_index.html  -  size  2K-25Mar  96 
PHOAKS:  Resources  for  comp.obiect 

People  Helping  One  Another  Know  Stuff  “Together,  we  know  it  all.”  More  resources: 
Page  2.  Page  3.  Page  4.  Top  Posters.  Volunteered  Resources.  Newsgroup... 
http://weblab.research.att.com/phoaks/comp/obiect/resourcesO.html  -  size  63k  -  27  Feb 
97 

Object  Resource  Lists 

CORBA  and  Distributed  Object  Resources:  Links  to  Related  Topics 

http://www.qds.com/people/apope/ap_resources.html  -  size  32K  -  24  Jan  97 
compilers  &  interpreters  archive  (miscellaneous) 

compilers  &  interpreters  archive,  miscellaneous  subject  area.  A  BibTeX  version  of  this 
database  can  be  found  here.  Article  links  with  a  size  in  kbytes...  http: 
//www.lpac.ac.uk/SEL-HPC/Articles/GeneratedHtml/comp.misc.html-size  32K-7  Mar  97 
No  Title 

220  0  article.  Path:  news.itd.umich.edu!caen!uwm.edu!news.moneng.mei.com!bloom- 
beacon.mit.edu lsenator-bedfellow.mit.edu Ifaqserv  From:  Bob  Hathaway.... 

http://faq.sph.umich.edu/faq/files/object-faq/partll  -  size  49K  - 17  Jul  95 
No  Title 

220  0  article.  Path:  news.itd.umich.edu  Icaenlhookup  lbloom-beacon.mit.edu  Isenator- 
bedfellow.mit.edu Ifaqserv  From:  Bob  Hathaway.  Newsgroups:... 
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http://faq.sph.umich.edu/faq/files/object-faq/part2  -  size  49K  -  17  Jul  95 
RIGmailer-archive:  OPTS  96 

OOTS  96.  James  W.  Moore  (moorej@mail04.mitre.org)  Wed,  3  Jul  96  16:43:50  -0400. 
Messages  sorted  by:  [  date  ][  thread  ][  subject  ][  author  ] 

Previous...  http://pebbles.cs.utk.edu/mail-archive/0170.html  -  size  21K  -  4  Jul  96 
Barry  &  Associates.  Inc. 

Barry  &  Associates  provides  facts  on  object  database,  object-relational  database,  object- 
manager,  and  object-relational  mapping  products,  http://www.odbmsfacts.com/  -  size  5K 
- 17  Feb  97 
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APPENDIX  E.  EMAIL  SEARCH  LISTING 


To  answer  your  questions: 

>1.  Working  with  the  Naval  Postgraduate  School  in  Monterey  and  we  would  like  a  public 
domain  version  of  an  OODBMS  with  Ada95  as  the  API? 

Our  ODBMS  is  being  developed  under  contract  to  Wright  Laboratory,  which  is  part  of 
the  USAF  Wright-Patterson  AFB.  The  name  of  our  ODBMS  is  FIRM,  which  is  an 
acronym  for  Functionally  Integrated  Resource  Manager.  Our  API  is  public  (that 
PostScript  doc  at  the  AdalC  that  I  referred  you  to),  and  I  am  Lockheed  Martin’s 
representative  to  the  ODMG.  We  are  in  the  process  of  making  Lockheed  Martin  a  voting 
member  of  the  ODMG  and  we  plan  to  start  an  Ada  working  group  next  year  to  form  an 
Ada  binding  chapter  in  ODMG.  We  expect  that  our  Ada  API  will  be  the  "starting  point" 
for  our  work.  FIRM  is  not  yet  completed,  however.  We  demonstrated  basic  functionality 
last  October,  and  this  November  we  intend  to  demonstrate  our  database  distribution 
capability,  fault  tolerance  via  dual-redundant  ODBMS  servers,  and  persistence  (using 
Solaris  file  system)  at  our  "CDR".  We  will  also  need  to  perform  full-path  testing  of  the 
ODBMS  and  build  some  supporting  tools  for  it  next  year.  When  this  testing  has  been 
completed,  FIRM  should  be  suitable  for  use.  FIRM  will  be  available  as  a  GOTS  product 
from  Wright  Laboratory. 

>2.  Is  a  version  of  your  OODBMS  available  for  demo  or  purchase,  etc?  Costs?  No 
version  of  FIRM  will  be  available  prior  to  our  CDR.  After  that,  getting  an  "early-release" 
demo  version  would  have  to  be  negotiated  with  our  management  and  Wright  Laboratory. 
>3.  What  platforms  or  other  resources  required  to  operate  the  OODBMS?  The  final  target 
platform  for  the  FIRM  ODBMS  has  not  been  chosen.  We  are  therefore  building  FIRM  to 
be  platform/OS  independent.  Our  development  environment  is  Sun  SPARC/Solaris  2.5, 
but  our  target  is  intended  to  be  a  flight  computer  in  an  aircraft. 

>4.  client  served?  I’m  not  sure  what  you  mean  here.  If  you  mean  "client-server?"  the 
answer  is  yes.  The  way  we  envision  FIRM  being  used  is  to  have  "application  methods" 
resident  on  the  server.  These  "application  methods"  are  Ada  procedures  and  functions 
whose  signatures  have  a  CORBA IDL  description.  These  functions  iuid  procedures  would 
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be  invoked  by  a  CORE  A  call,  and  they  would  do  the  low-level  stuff  (find  an  object, 
iterate  a  collection,  search  an  index  etc).  Thus,  an  IDL  definition  for  "correlate  two 
tracks"  might  be  visible,  and  invoking  this  "application  method"  would  result  in  Ada 
procedure(s)  or  function(s)  being  run  on  the  server  that  would  manipulate  the  required 
collections/relationships/  indices/atomic  objects  and  return  the  desired  result.  As  FIRM  is 
intended  for  use  in  embedded  real-time  environments,  its  design  is  intended  to  minimize 
client-to-server  messages. 

>5.  What  features  are/are  not  available  with  this  OODBMS?  What  apis?  This  information 
is  in  the  files  I  sent  you.  There  is  also  an  excellent  overview  of  the  FIRM  program  that 
was  written  by  my  colleague  Mayford  Roark,  the  author  of  the  FIRM  SRS.  If  you  can  get 
the  files  I  sent  you  to  print,  I  will  send  you  the  FIRM  overview  as  well.  If  not,  perhaps  I 
can  mail  the  overview  to  you  as  well.  I  hope  this  information  is  helpful.  Please  contact 
me  if  I  can  be  of  further  assistance. 

Michael  P.  Card 

Lockheed  Martin  Ocean,  Radar  and  Sensor  Systems  Division  Syracuse 
NY  13221  voice:  (315)-456-3022 
FAX:  (315)-456-2414 
e-mail  :card  @  syr.lmco.com 

SECOND  MESSAGE: 

At  12:57  PM  5/20/97  -0700,  you  wrote: 

»I  received  your  name  from  the  ADAIC  and  wanted  to  check  with  you  on  whether  there 
exists  an  OODBMS  with  an  ADA  api?  ... 

WeVe  actually  been  looking  into  this  recently.  Currently  the  answer  is  a  qualified  no.  I 
haven’t  found  any  commercial  OODBMS  that  offer  an  Ada  API  or  access  method.  The 
only  thing  I  have  found  is  from  a  search  of  comp.lang.ada: 

Subject:  Ada  Persistence  Through  an  OODBMS  02 
From:  millan@caps.irit.fr  (Thierry  MBLLAN) 

Date:  1995/06/14  Message-Id:  <3rmili$97i@irit.irit.fr> 

Newsgroups:  comp.databases.object,comp.lang.ada 
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Organization;  IRIT-UPS,  Toulouse  France  Keywords:  Ada,  OODBMS  02,  Persistence 
We  have  made  a  coupling  between  Ada  and  the  OODBMS  02  as  underlying  system  (Ada 
User  Journal,  UK,  ...)•  The  prototype  allows  to  handle  02  and/or  Ada  persistent  data  in 
an  Ada  program.  This  handle  is  transparent  for  the  ada  user  and  allows  to  use  the  02 
graphic  tools.  For  more  details,  you  can  join  us  (discussing,  possible  applications,  ...) 
Thanks. 

Thierry  MILLAN  &  Frederic  MULATERO 
millan@irit.fr 

««  I  don’t  know  if  this  is  an  in-house  effort  or  what.  You  may  also  want  to  contact 
David  Wheeler  (wheeler@ida.org)  as  he  was  recently  asking  the  same  question  on 
comp.lang.ada. 

Brad  Brad  Balfour  ===  Note  new  company,  e-mail, &  phone  number  === 

OIS,  Inc.  Brad.Balfour@ois.com  703/295-6533 

TfflRD  MESSAGE: 

Mr.  Schmidt. 

In  response  to  your  request  for  a  database  tool  that  stores  Ada  95  objects,  I  performed 
searches  in  the  areas  listed  below.  I  have  not  found  a  match  yet,  but  am  still  awaiting 
responses  from  some  of  these  sources  and  will  notify  you  if  I  obtain  more  information. 
Please  feel  free  to  call  or  e-mail  if  you  need  additional  information. 

1.  Searched  the  AdalC’s  Ada  95  Tools  Database.  This  database  consists  of  all  the 
tools/bindings  we  are  aware  of.  It  is  a  comprehensive  list  from  industry,  academia,  and 
government.  We  obtained  this  information  through  searches  on  the  World  Wide  Web,  at 
industry  events  such  as  TRI-Ada  ,  through  press  releases  from  companies  announcing 
tool  releases,  reading  relevant  trade  journals  and  magazines,  and  through  follow-up  to 
companies  that  design  Ada  tools.  The  database  can  be  accessed  on  the  World  Wide  Web 
at  http://sw-eng.falls-church.va.us/AdaIC/tools 
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2.  Posted  an  message  to  the  internet  news  group  "comp.lang.ada"  asking  the  readers  if 
they  were  aware  of  any  commercial  or  shareware  products  that  fit  your  requirements. 
Have  not  received  any  feedback  yet,  but  we  monitor  this  newsgroup  daily. 

FOURTH  MESSAGE: 

From:  Douglas  Barry 

There  is  no  commercial  oodbms  with  ada95  as  an  api.  I  suggest  you  contact  Michael  Card 
at  Lockheed  Martin.  Hisemailiscard@syr.lmco.com.  Hope  this  helps. 

Doug  Barry 
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APPENDIX  F.  PHONE  SEARCH  LISTING 


COMPANY  NAME 

1.  Fujitsu  Software  Corporation 

2.  Gemstone 

3.  Hewlett-Packard 

4.  Informix 

5.  Matisse  Software 

6.  02  Technology 

7.  Objectivity  Inc. 

8.  Oracle 

9.  Osmos 

10.  Persitence 

11.  POET 

12.  Versant 

13.  Barry  &  Associates 

14.  Object  Design 

15.  UniSQL  Incorporated 


PHONE 

408-432-1300 

800-243-9369 

800-637-7740 

800-331-1763 

415-610-0367 

800-798-5454 

303-331-1491 

800-542-1170 

714-380-6999 

415-342-3655 

415-286-4640 

415-329-7571 

612-892-6113 

415-286-6697 

800-451-3267 
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APPENDIX  G.  PSDL  SOURCE  CODE  LISTING 


This  package  provides  standard  i/o  facilities  for  psdl  programs. 


with  parser,  parser_tokens ; 

with  psdl j)rogram_pkg;  use  psdl_program_pkg; 
with  psdl_component_pkg;  use  psdl_component_pkg; 
with  psdl_concrete_type_pkg;  use  psdl_concrete_type_pkg; 
with  text_io;  use  text_io; 
package  psdl_io  is 

REQS:  File_Type; 

procedure  get  (item:  in  out  psdl__program)  renames  parser. get; 

—  Raises  syntax_error ,  semantic_error . 

procedure  get (file:  in  file_type;  item:  in  out  psdl_program) 
renames  parser . get ; 

—  Raises  syntax_error ,  semantic_error . 

procedure  put_component_spec  (c :  in  psdl_component)  ; 

—  Raises  psdl_component_pkg.undef ined__component . 

procedure  put_component_imp  (c :  in  psdl_component;  p:  in  psdl_program)  ; 
—  Raises  psdl_component_^kg  .undef ined_component . 

procedure  put(p:  in  psdl__program)  ; 

—  Raises  psdl_component_pkg.undefined_component . 

procedure  put  (file:  in  file_type;  p:  in  psdl_program)  ; 

—  Raises  psdl__component_pkg.undef ined_component . 

procedure  put_reqm_ids  (pcomp :  psdl_component ;  rqms  :  psdl_id__sequence)  ; 
—  Output  component  name  and  associated  ids  only  if  any  ids 

syntax_error :  exception  renames  parser_tokens . syntax_error; 
semantic_error :  exception  renames  parser . semantic_error; 
end  psdl_io; 

with  psdl_concrete_type_pkg  ; 
use  psdl_concrete_type_pkg  ; 
with  psdl_graph_pkg  ; 
use  psdl_graph_pkg  ; 
with  express ion_pkg  ; 
use  expression__pkg  ; 


package  body  psdl_io  is  use  edge_set_pkg  ; 

package  tim_op_io  is  new  enumeration_io  (  timer_op_id  )  ; 
package  my_int_io  is  new  integer_io  (  integer  )  ; 
use  my_int_io  ; 

package  my_bool_io  is  new  enumeration_io  (  boolean  )  ; 
use  my__bool_io  ; 

htab  :  constant  string  :=  "  "  ; 

procedure  put_component_name  (  c  :  in  psdl_component  )  is 
begin 


47 


if  component_category  (  c  )  =  psdl_operator 

then  put  {  "OPERATOR  "  ) ; 

else  put  {  "TYPE  "  ) ; 

end  if; 

put_line  (  convert  (  name  {  c  )  )  ) ; 

end  put_component_name; 

procedure  put_id_seq  (  ids  :  in  psdl_id_sequence  )  is  i  :  natural 
:=  1  ; 

begin 

if  not  equal  {  ids  , 
empty  ) 

then  declare  —  begin  generator  loop 
return_f rom__generator_loop :  exception; 
exit_f rom_generator_loop :  exception; 
procedure  generator_loop_body ( id :  psdl_id)  is 
begin 

if  i  >  1 

then  put  (  " ,  "  )  ; 

end  if; 

put  (  convert  (id  )  ) ; 

i  :  =  i  +1  ; 

end  generator_loop_body; 

procedure  execute__generator_loop  is  new  psdl_id_sequence_pkg  . 

scan{generator_loop_body) ; 

begin 

execute_generator_loop{ids  )  ; 
exception 

when  exit_from_generator_loop  =>  null; 
end;  —  of  generator  loop 
end  i f ; 

end  put_id__seq; 

procedure  put_id_set  (  ids  :  in  psdl_id_set  )  is  i  :  natural  :  = 

1  ; 

begin 

if  not  equal  {  ids  , 
empty  ) 

then  declare  —  begin  generator  loop 
return_f rom_generator_loop :  exception; 
exit_f rom__generator_loop :  exception; 
procedure  generator_loop_body {id:  psdl_id)  is 
begin 

if  i  >1 

then  put  (  " ,  "  ) ; 

end  if; 

put  (  c onve r t  (  i d  )  ) ; 

i  :=  i  +1  ; 

end  generator_loop__body; 

procedure  execute_generator_loop  is  new  psdl_id_set_pkg  . 

scan(generator_loop_body)  ; 

begin 

execute__generator_loop  (ids  ); 
exception 

when  exit_from_generator_loop  =>  null; 
end;  --  of  generator  loop 
end  if; 
new_line; 
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end  put_id_set; 

procedure  put__id_set  (  ids  :  in  psdl_id_set  ; 
message  :  in  string  )  is  i  :  natural  :=  1  ; 

begin 

if  not  equal  (  ids  , 
empty  ) 

then  put  {  htab  &  htab  &  message  &  "  "  )  ; 

put_id_set  (  ids  ) ; 
end  if; 

end  put_id__set; 

procedure  put_smet  (  o  :  in  operator  )  is 
begin 

if  specif ied_maximum_execution_time  (  o  )  /=  undef ined_time 

then  put  (  htab  &  htab  &  "MAXIMUM  EXECUTION  TIME"  ); 

put^line  (  integer  '  image  (  specif ied_maximum_execution_time  (  o 
)  )  &  "  MS"  ); 

end  if; 
end  put_smet; 

procedure  put_text  (  t  :  in  text  ; 
message  ;  in  string  )  is 
begin 

if  not  eq  (  t  , 
empty  ) 

then  put  (  htab  &  htab  &  message  &  "  "  )  ; 

put_line  (  convert  (  t  )  ) ; 

end  if; 
end  put_text; 

procedure  put_type_name  (  tname  :  in  type_name  )  is  i  :  natural 
:=  1  ; 

begin  put  (  convert  (  tname  .  name  )  )  ; 

if  not  equal  (  empty_type_declaration  , 
tname  .  gen_par  ) 

then  put  (  ascii  .  l_bracket  )  ; 

declare  —  begin  generator  loop 
return_from_generator_loop :  exception; 
exit_from_generator_loop :  exception; 

procedure  genera tor_loop_body (id:  psdl_id;  tn;  type_name)  is 
begin 

if  i  >  1 

then  put  (  " ,  "  ) ; 

end  if; 

put  {  convert  (id  )  &  " :  "  ) ; 

put_type_name  (  tn  )  ; 
i  i  +  1  ; 

end  genera tor_loop_body; 

procedure  execute_generator_loop  is  new  type_declaration_pkg  . 

scan(generator_loop_body)  ; 

begin 

execute_generator_loop(  tname  .  gen_par  ); 
exception 

when  exit_from_generator_loop  =>  null; 
end;  —  of  generator  loop 

put  (  ascii  .  r_bracket  )  ; 
end  if; 

end  put__type_name ; 

procedure  put__type_decl  (  td  :  in  type_declaration  ; 
message  :  in  string  "  )  is  i  :  natural  :=  1  ; 
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begin 

if  not  equal  {  empty_type_declaration  , 
td  ) 

then  put_line  (  htab  &  htab  &  message  )  ; 

declare  —  begin  generator  loop 
return_f rom_generator_loop :  exception ; 
exit_f rom__generator__loop :  exception; 

procedure  generator_loop_body (id:  psdl_id;  tn;  type_name)  is 
begin 

if  i  >1 

then  put_line  (  " , "  ) ; 

end  i f ; 

put  {  htab  &  htab  &  htab  &  convert  (id  )  &  " :  ”  ) ; 

put_type_name  (  tn  )  ; 
i  :=  i  +1 

end  generator_loop__body; 

procedure  execute_generator_loop  is  new  type_declaration_pkg  . 

scan(generator_loop_body) ; 

begin 

execute_generator_loop ( td  ) ; 
exception 

when  exit_from_generator__loop  =>  null; 
end;  —  of  generator  loop 
new_line; 
end  if; 

end  put_type_decl; 

procedure  put_expression  {  e  :  in  expression  ) ; 

procedure  put_function_call  {  e  :  in  function_call_expression  )  is 
tname  ;  type_name  :  =  adt_name  (  e  )  ; 

first_time  :  boolean  :=  true  ; 

begin 

if  equal  {  tname  , 
inf ix_type_name  ) 
then  put  (  ” { "  ) ; 

put_expression  {  expression_sequence_pkg  .  fetch  (  arguments  (  e  ) 

1  )  )  ; 

put  (  ”  "  ); 

put  (  convert  (  operation  {  e  )  )  ) ; 

put  (  •'  "  )  ; 

put_expression  (  expression_sequence_pkg  .  fetch  (  arguments  (  e  ) 

2  )  )  ; 

put  {  ”)•’  ); 

els if  equal  (  tname  , 

prefix_type„name  )  then  put  (  convert  (  operation  (  e  )  ) 

)  ; 

put  (  "  { "  ); 

put_expression  (  expression_sequence_pkg  .  fetch  {  arguments  (  e  ) 

1  )  )  ; 

put  (  " ) "  ) ; 

else  pu t_type_name  (  adt_name  {  e  )  )  ; 

put  (  ); 

put  (  convert  (  operation  (  e  )  )  ) ; 
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if  expression_sequence_pkg  .  length  {  arguments  (  e  )  )  >  0 

then  put  {  " ( "  ) ; 

declare  —  begin  generator  loop 
return_from_generator_loop :  exception; 
exit_from_generator_loop:  exception; 
procedure  generator_loop_body (e :  expression)  is 
begin 

if  first„time 

then  first_time  :=  false  ; 

else  put  {  " ,  "  ) ; 

end  if; 

put_expression  {  e  ) ; 
end  generator_loop_body; 

procedure  execute_generator_loop  is  new  express ion_sequence_pkg  . 

scan{generator_loop_body)  ; 

begin 

execute„generator_loop (arguments  (  e  )  ); 

exception 

when  exit_from_generator_loop  =>  null; 
end;  —  of  generator  loop 
put  (••)’•  ); 

end  if; 
end  if; 

end  put_function_call; 

function  int_to_string  (  i  ;  integer  )  return  string  is  s  : 
constant  string  :=  integer  '  image  (  i  )  ; 

begin  return  s  (  2  ..s'  last  )  ; 

end  int_to_string; 

procedure  put_expression  (  e  :  in  expression  )  is  exp_cat  : 
express ion_category  :=  category  (  e  )  ; 

begin  case  exp_cat  is  when  undef ined_exp  =>  put  (  "?"  ); 

when  boolean__literal  => 
if  boolean__value  {  e  ) 

then  put  (  "TRUE"  ) ; 

else  put  {  "FALSE"  ) ; 
end  if; 

when  integer_literal  =>  put  (  int_to__string  (  integer_value  (  e 
)  )  )  ; 

when  real_literal  =>  put  (  convert  (  text__of  (  e  )  )  )  ; 

when  string_literal  =>  put  {  convert  {  text_value  (  e  )  ) 

)  ; 

when  time_literal  =>  put  (  int_to_string  (  milliseconds  (  e  ) 
)  )  ; 

put  {  "  ms"  )  ; 

when  identifier  =>  put  {  convert  (  name  {  e  )  )  )  ; 

when  function„call  =>  put_function_call  (  e  )  ; 

end  case; 

end  put_expression; 

procedure  put_state  {  state  :  in  type_declaration  ; 
init  :  in  init_map  )  is  initial_value  :  expression  ; 

begin 

if  not  equal  (  state  , 
empty_type_declaration  ) 
then  declare  —  begin  generator  loop 
return_f rom_generator_loop :  exception ; 
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exit__f roin_generator__loop :  exception; 

procedure  genera tor__loop_body (id:  psdl_id;  tn:  type^name)  is 
begin 

assign  {  initial_value  , 
fetch  (  init  , 
id  )  )  ; 

put  (  htab  &  htab  &  "STATES  "  &  convert  (  id  )  &  "  :  "  )  ; 

put_type_name  (  tn  )  ; 

put  (  "  INITIALLY  "  ) ; 

put_expression  (  initial_value  ) ; 

new_l ine ; 

end  genera tor_loop_body; 

procedure  execute_generator_loop  is  new  type_declaration_pkg  . 

scan  (generator_loop__body)  ; 

begin 

execute_generator_loop ( state  ) ; 
exception 

when  exit_froin_generator_loop  =>  null; 
end;  —  of  generator  loop 
end  if; 

end  put_state; 

procedure  put_operator_spec  (  o  :  in  operator  )  is 
begin  put_line  (  htab  &  "SPECIFICATION”  ); 

put_type_decl  (  generic_parameters  (  o  ) 

"GENERIC"  ); 

put_type_decl  (  inputs  (  o  )  , 

"INPUT"  ) ; 

put_type_decl  (  outputs  (  o  )  , 

"OUTPUT"  )  ; 

put_state  (  states  (  o  )  , 

get__init_inap  {  o  )  )  ; 

put_id_set  (  exceptions  (  o  )  , 

"EXCEPTIONS"  ); 

put_smet  (  o  )  ; 

put__id_set  (  keywords  {  o  )  , 

"KEYWORDS"  ); 

put_text  (  informal_description  (  o  )  , 

"DESCRIPTION"  ) ; 

put_text  (  axioms  (  o  )  , 

"AXIOMS"  ) ; 

put_line  (  htab  &  "END"  ); 
end  put_operator_spec; 

procedure  put_op_spec_list  (  op__map  :  in  operation^map  )  is 
begin  declare  --  begin  generator  loop 
return_f rom_generator_loop :  exception ; 
exi t_f rom_generator_loop :  exception; 

procedure  genera tor_loop_body (id:  psdl_id;  o:  operator)  is 
begin 

put  (  htab  )  ; 
put_component_name  (  o  ) ; 
put_operator_spec  (  o  ) ; 
new_line; 

end  generator_loop_body; 

procedure  execute_generator_loop  is  new  operation_map_pkg  . 

scan(generator_loop_body)  ; 

begin 

execute_generator_loop  (op_map  )  ; 
exception 

when  exit_from_generator_loop  =>  null; 
end;  —  of  generator  loop 
end  put_op_spec_list; 
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procedure  put_type_spec  (  t  :  in  data_type  )  is 
begin  put_line  (  "SPECIFICATION”  ); 

put_type_decl  {  generic_parameters  {  t  )  , 

"GENERIC"  ) ; 

put_type_decl  (  model  (  t  )  )  ; 

pu t_op_spec_l i s t  (  operations  (  t  )  )  ; 

put_id_set  (  keywords  (  t  )  , 

"KEYWORDS"  ); 

put_text  (  informal_description  {  t  )  , 

"DESCRIPTION"  ) ; 

put_text  (  axioms  (  t  )  , 

"AXIOMS"  ) ; 

put^line  (  "END"  ); 
new_line; 

end  put_type_spec; 

procedure  put_op_id  (  o  :  in  op_id  )  is 
begin 

if  not  eq  (  o  .  type_name  , 
empty  ) 

then  put  (  convert  (  o  .  type__name  )  &  "  . "  )  ; 

end  if; 

put  (  convert  (  o  .  operation_name  )  ) ; 

if  not  (  equal  (  o  .  inputs  , 

emp  t y  )  and  equal  (  o  .  ou  t pu  t  s  , 

empty  )  ) 

then  put  (  " ( "  ) ; 

put__id__seq  (  o  ,  inputs  )  ; 
put  (  ”1"  ); 

put_id__seq  (  o  ,  outputs  )  ; 
put  {")"); 
end  if; 

end  put_op_id; 

procedure  put_vertices  (  g  :  in  psdl_graph  )  is  vertex_list 
op__id_set  ; 

met  :  millisec  ; 

begin  assign  (  vertex_list  , 
vertices  (  g  )  )  ; 

declare  --  begin  generator  loop 
return_from_generator_loop :  exception; 
exit_f rom_generator_loop :  exception; 
procedure  generator_loop_„body (id:  op_id)  is 
begin 

put  (  htab  &  htab  &  htab  &  "VERTEX  "  ) ; 

pu  t__op_  i  d  {  i  d  )  ; 

met  :=  maximum_execution_time  (  id  , 

g  )  ; 

if  met  /=  undefined_time 

then  put_line  (  ":"  &  integer  '  image  (  met  )  &  "  MS"  ); 

else  ne w_l i ne ; 
end  if; 

declare  —  begin  generator  loop 
exit_from_generator_loop :  exception; 

procedure  generator_loop_body (p:  psdl_id;  e:  expression)  is 
begin 

put  (  htab  &  htab  &  htab  &  htab  &  "PROPERTY  " 

&  "  =  "  ); 
put_expr e  s  s i on  (  e  ) ; 


&  convert  (  p 


new_line; 

end  genera tor_loop_body; 

procedure  execute_generator_loop  is  new  init_map_pkg  . 

scan (generator_loop_body) ; 

begin 

execute_generator_loop (get_properties  (  id  , 

g  )  )  ; 

exception 

when  exit_froin_generator_loop  =>  null; 
end;  —  of  generator  loop 
end  generator_loop_body; 

procedure  execute_generator_loop  is  new  op_id_set_pkg  . 

scan(generator_loop_body)  ; 

begin 

execute_generator_loop(vertex__list  )  ; 
exception 

when  exit_from_generator__loop  =>  null; 
end;  —  of  generator  loop 
new_line; 
end  put_vertices; 

procedure  put_edges  {  g  :  in  psdl_graph  )  is  edge_list  :  edge_set 

r 

latency_time  :  millisec  ; 

begin  assign  {  edge_list  , 
edges  {  g  )  )  ; 

declare  —  begin  generator  loop 
return_froin_generator_loop :  exception; 
exi t_f rom_generator_loop :  exception ; 
procedure  generator_loop_body (e :  edge)  is 
begin 

put  (  htab  &  htab  &  htab  &  "EDGE  "  &  convert  (  e  .  stream_naine  ) 

&  "  "  ); 

latency_time  :=  latency  (  e  .  x  , 
e  .  y 

e  .  stream_naine  , 

g  ) 

if  latency_time  /=  unde fined_ time 

then  put  (  "  : "  &  integer  '  image  {  latency_time  )  &  "  MS  "  )  ; 

end  if; 

put_op_id  (  e  .  X  )  ; 
put  (  "  ->  "  ); 

put_op_id  (  e  .  y  ) ; 
new_line; 

declare  —  begin  generator  loop 
exi t_f rom_generator__loop :  exception  ; 

procedure  generator_loop_body (p:  psdl__id;  e:  expression)  is 
begin 

put  (  htab  &  htab  &  htab  &  htab  &  "PROPERTY  "  &  convert  (  p  ) 

&  "  =  "  ); 
put_expression  {  e  ) ; 
new_line; 

end  generator_loop_body; 

procedure  execute_generator_loop  is  new  init_map_pkg  . 

scan(generator_loop_body)  ; 

begin 

execute_generator_loop(get_properties  {  e  .  x  , 
e  .  y 

e  .  s  t ream_name  , 

g  )  )  ; 
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exception 

when  exit_from_generator_loop  =>  null; 
end;  --  of  generator  loop 
end  generator_loop_body; 

procedure  execute_generator_loop  is  new  edge_set_pkg  . 

scan (generator_loop_body) ; 

begin 

execute_generator_loop ( edge_lis t  ) ; 
exception 

when  exit_from_generator_loop  =>  null; 
end;  of  generator  loop 
new_line; 
end  put_edges; 

procedure  put_graph  (  g  :  in  psdl_graph  )  is 
begin  new_line; 

put_line  (  htab  &  htab  &  "GRAPH"  ) ; 
put_vertices  (  g  ) ; 
put_edges  (  g  ) ; 
end  put_graph; 

procedure  put_trigger  (  oi  :  op_id  ; 

CO  :  compos  it  e_operator  )  is  the_trigger  :  trigger  :=  get_trigger 
(  oi 

CO  ) 

the_exec_guard  :  expression  ; 

begin  assign  (  the_exec_guard  , 
execution_guard  (  oi 

CO  )  )  ; 

if  the_trigger  .  tt  =  by_all 

then  put  (  htab  &  htab  &  htab  &  htab  &  "TRIGGERED  BY  ALL  "  )  ; 

put_id_set  (  the__t rigger  .  streams  )  ; 

elsif  the_trigger  .  tt  =  by_some  then  put  (  htab  &  htab  &  htab  & 
htab  &  "TRIGGERED  BY  SOME  "  ) ; 

put_id_set  {  the_trigger  .  streams  ) ; 
end  if; 

if  not  eq  (  the_exec_guard  , 
true_expression  ) 

then  put  (  htab  &  htab  &  htab  &  htab  ) ; 

if  the_trigger  .  tt  =  by_none 
then  put  (  "TRIGGERED  "  ) ; 

else  put  (  htab  ) ; 
end  if; 

put  {  " IF  "  ) ; 

put_expression  {  the__exec__guard  )  ; 
new_line; 
end  if; 

exception  when  no_trigger  =>  null; 
end  put_trigger ; 

procedure  put_timing  (  time_val  :  mi  Hi  sec  ; 
timing__message  :  in  string  )  is 
begin 

if  time_val  /=  undefined_time 

then  put  (  htab  &  htab  &  htab  &  htab  &  timing__message  )  ; 
put_line  {  integer  '  image  (  time_val  )  &  "  MS"  )  ; 

end  if; 

end  put_timing; 
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procedure  put_output_guard  (  oi  :  op_id  ; 
parent  :  compos  ite__oper  a  tor  ; 

p  :  psdl_program  )  is  local_oi  :  op_id  :=  oi  ; 
local_parent  :  compos ite_opera tor  :=  parent  ; 
op  :  operator  ; 

out_streams  :  type_declaration  ; 
og  :  expr e  s  s  i  on  ; 

begin  op  ;=  get_def inition  (  p  , 
oi  ) 

if  op  =  null_component 

then  set_output  (  standard_error  ) ; 
put  {  standard_error  , 
undefined  operator:  "  ); 

put__op_id  (  oi  )  ; 
new_line; 

set_output  {  standard_output  ) ; 
raise  undefined_component ; 
end  if; 

out_streams  :=  outputs  (op  )  ; 

declare  —  begin  generator  loop 
return__from_generator__loop :  exception; 
exit_from_generator_loop:  exception; 

procedure  generator_loop_body (id:  psdl_id;  tn:  type_name)  is 
begin 

assign  (  og  , 
output_guard  (  local_oi 
id  , 

local_parent  )  ) ; 

if  not  eq  (  og 
true_expression  ) 

then  put  (  htab  &  htab  &  htab  &  htab  ) ; 
put  (  "OUTPUT  "  &  convert  (id  )  &  "  IF  "  ) ; 

put_expression  {  og  ) ; 
new_line; 
end  if; 

end  generator_loop_body; 

procedure  execute_generator_loop  is  new  type_declaration_pkg  . 

scan (genera tor_loop_body) ; 

begin 

execute_generator_loop (out_streams  ) ; 
exception 

when  exit_from_generator_loop  =>  null; 
end;  —  of  generator  loop 
end  pu t_ou tpu  t_guar d ; 
procedure  put__timer_op  (  oi  :  op_id  ; 

CO  :  compos ite_opera tor  )  is  the_timer_op_list  :  timer_op_set 

begin  the_timer_op_list  :=  timer_operations  (  oi  , 

CO  ) 

declare  —  begin  generator  loop 
return_f rom_generator_loop :  exception; 
exi t_f rom_generator_loop :  exception ; 

procedure  generator_loop_body (the_timer_op_rec :  timer_op)  is 
begin 

put  (  htab  &  htab  &  htab  &  htab  )  ; 
tim_op_io  .  put  (  the_timer_op__rec  .  op_id  )  ; 
put  (  "  TIMER  •'  )  ; 

put  (  convert  (  the_timer_op_rec  .  timer_id  )  )  ; 
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if  eq  (  the_timer_op__rec  .  guard  , 
true_expression  ) 
then  new_l ine ; 

else  put  (  "  IF  "  ) ; 

put_expression  (  the_tiiner_op_rec  .  guard  )  ; 
new^line; 
end  i f ; 

end  generator_loop__body; 

procedure  execute_generator_loop  is  new  timer_op_set_pkg 

scan(generator_loop_body) ; 

begin 

execute__generator_loop  ( the_timer_op_list  )  ; 
exception 

when  exit_froin__generator_loop  =>  null; 
end;  —  of  generator  loop 
end  put__timer_op; 

procedure  put_excep_trigger  (  oi  :  op_id  ; 
parent  :  in  compos it e_opera tor  ; 

p  :  in  psdl_program  )  is  local_oi  :  op_id  :=  oi  ; 
local_parent  :  compos ite_operator  :=  parent  ; 
op  :  operator  ; 

the_exception_set  :  psdl_id_set  ; 
et  :  expression  ; 

begin  op  :=  get_def inition  {  p  , 
oi  ) 

if  op  =  null_component 

then  set_output  (  standard_error  ) ; 
put  (  standard_error  , 
undefined  operator:  "  ) ; 

pu  t_op_i  d  (  o  i  )  ; 
new_line; 

set_output  (  standard_output  ) ; 
raise  unde  fine  d_c  omp  onent ; 
end  if; 

the_exception_set  :=  exceptions  (op  )  ; 

declare  --  begin  generator  loop 
re turn__f rom_generator_loop :  exception  ; 
exit_f rom_generator_loop :  exception; 
procedure  generator_loop_body { e_name :  psdl_id)  is 
begin 

assign  (  et  , 

except ion_trigger  {  local_oi  , 
e_name  , 

local_parent  )  ) ; 

if  eq  {  et  , 
true_expression  ) 

then  put  {  htab  &  htab  &  htab  &  htab  )  ; 
put_line  (  "EXCEPTION  "  &  convert  (  e__name  )  )  ; 

elsif  not  eq  (  et  , 

false_expression  )  then  put  (  htab  &  htab  &  htab  & 
put  {  "EXCEPTION  "  &  convert  (  e_name  )  &  "  IF  " 

put__expression  (  et  )  ; 
new_line; 
end  if; 

end  generator_loop_body; 


htab  )  ; 
); 
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procedure  execute_generator_loop  is  new  psdl__id_set__pkg  . 

scan  (genera tor_loop_body)  ; 

begin 

execute__generator_loop  ( the_exception_set  )  ; 
exception 

when  exit_fronugenerator_loop  =>  null; 
end ;  - -  of  generator  loop 
end  put_excep_trigger ; 

procedure  put_control__constraint  {  oi  :  op_id  ; 

CO  :  in  coinposite_operator  ; 
p  :  in  psdl_program  )  is 

begin  put  {  htab  &  htab  &  htab  &  "OPERATOR  "  ) ; 

put_op_id  (  oi  ) ; 
new_line; 
put_trigger  (  oi 

CO  )  ; 

put_timing  (  period  (  oi  , 

CO  )  ,  ^ 

"PERIOD"  ); 

put_timing  {  f ini sh__wi thin  (  oi 

CO  ) 

"FINISH  WITHIN"  ) ; 

put_timing  (  ininimuin_calling_period  (  oi  , 

CO  ) 

"MINIMUM  CALLING  PERIOD"  ) ; 

put^timing  (  maximuin_response_tiine  (  oi  , 

CO  ) 

"MAXIMUM  RESPONSE  TIME"  )  ; 
put_output_guard  (  oi  , 

CO  , 

P  )  ; 

put_timer_op  (  oi  , 

CO  )  ; 

put_excep_trigger  (  oi  , 

CO  , 

P  )  ; 

end  put_control_constraint ; 

procedure  put_control_constraints  (  co  :  in  composite_operator  ; 
p  :  in  psdl_program  )  is  the_op_id_set  :  op_id_set  :=  empty  ; 
local_co  :  compos  ite__oper  a  tor  :=  co  ; 
local_p  :  psdl_program  :=  p  ; 

begin  assign  (  the_op_id_set  , 
vertices  (  graph  (  co  )  )  ) ; 

put_line  (  htab  &  htab  &  "CONTROL  CONSTRAINTS"  ) ; 
declare  —  begin  generator  loop 
return_f rom_generator_loop :  exception; 
exit_from__generator_loop:  exception; 
procedure  genera t or_l oop_body ( id:  op_id)  is 
begin 

put_control_constraint  (  id 
local_co  , 
local_p  ) ; 

end  genera tor_loop_body; 

procedure  execute_generator_loop  is  new  op_id_set_pkg  . 

scan{generator_loop_body)  ; 

begin 

execute_generator_loop{the_op_id_set  )  ; 
exception 

when  exit_from_generator__loop  =>  null; 
end;  —  of  generator  loop 
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end  put__control_constraints; 

procedure  put_operator_implementation  {  o  :  in  operator  ; 
p  :  in  psdl_program  )  is  co  :  compos ite_opera tor  ; 


begin  new_line; 

put  (  htab  Sc  "  IMPLEMENTATION  "  )  ; 


if  component_granularity  {  o  )  =  composite 

then  put_graph  (  graph  {  o  )  )  ; 

put_type_decl  (  streams  (  o  )  , 

"DATA  STREAM"  ) ; 

put_id_set  (  timers  (  o  )  , 

"TIMER"  )  ; 

put_control_constraints  (  o  , 

p  ) ; 

put__text  (  implementation_description  (  o 
"DESCRIPTION"  ) ; 


else  put_line  (  "ADA  "  &  convert  (  ada_name  (  o  )  )  )  ; 

end  if; 

put^line  {  htab  &  "END"  ); 
new_line; 

end  put_operator_implementat ion ; 
procedure  put_type_implementation  (  t  :  in  data_type  ; 
p  :  in  psdl__program  )  is  o  ;  operator  ; 

begin  put  (  "  IMPLEMENTATION  "  )  ; 

if  component_granularity  (  t  )  =  composite 

then  put_type_name  (  data_structure  (  t  )  )  ; 

new_line; 

declare  —  begin  generator  loop 
return_f rom_generator_loop :  exception; 
exit_from_generator_loop :  exception; 

procedure  generator__loop_body (id:  psdl_id;  op:  operator)  is 
begin 

put_line  (  htab  &  "OPERATOR  "  &  convert  (id  )  ); 

put_operator_implementation  (  op  , 

P  )  ; 
new_line; 

end  generator_loop__body; 

procedure  execute_generator_loop  is  new  operation__map_j)kg  . 

scan(generator_loop_body)  ; 

begin 

execute_generator_loop (operations  (  t  )  ); 

exception 

when  exit_from_generator_loop  =>  null; 
end;  —  of  generator  loop 

else  put__line  (  "  ADA  "  &  convert  (  ada_name  (  t  )  )  )  ; 

end  if; 

put_line  (  "END"  ); 
end  put_type_implementation; 

procedure  put_component_spec  (  c  :  in  psdl_component  )  is 
begin  put_component_name  (  c  )  ; 

if  component_category  (  c  )  =  psdl_operator 

then  put_operator_spec  (  c  )  ; 

else  put_type_spec  (  c  )  ; 
end  if; 
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end  put_component_spec ; 

procedure  put_coinponent_iinp  (  c  :  in  psdl_component  ; 
p  :  in  psdl_program  )  is 
begin 

if  component_category  (  c  )  =  psdl_operator 

then  put__operator_i]:nplementation  (  c  , 

P  )  ; 

else  put_type_implementation  (  c  , 

P  )  ; 
end  if; 

end  put_coinponent_imp; 
procedure  put  {  p  :  in  psdl_program  )  is 
begin  declare  --  begin  generator  loop 
return_f rom_generator__loop :  exception; 
exit_f rom_generator_loop :  exception; 

procedure  generator_loop_body (id:  psdl_id;  c:  psdl_component)  is 
begin 

put_component_name  (  c  ) ; 

if  component_category  {  c  )  =  psdl_operator 

then  put_operator„spec  {  c  )  ; 

put_operator_implementation  (  c  , 

P  )  ; 

else  put_type_spec  (  c  ); 

put_type_implementation  (  c  , 

P  )  ; 
end  if; 

end  genera tor_loop_body; 

procedure  execute_generator_loop  is  new  psdl_program_map_pkg  . 

scan(generator__loop_body)  ; 

begin 

execute_generator_loop(p  ) ; 
exception 

when  exit_froin_generator_loop  =>  null; 
end;  —  of  generator  loop 
end  put; 

procedure  put  (  file  :  in  file_type  ; 
p  :  in  psdl_program  )  is 
begin  set^output  (file  )  ; 
put  (  p  )  ; 

set_output  (  standard_output  ) ; 
end  put; 

procedure  put^reqiruids  (pcomp:  psdl_coinponent;  rqms:  psdl_id_sequence)  is 
i:  natural  :=  1; 
begin 

if  not  Is_Open(REQS)  then 

create (REQS, Out_File, "test.reqs") ; 
end  if; 

put_line(REQS,  "  *' )  ; 

if  component_category (pcomp)  =  psdl_operator 
then  put  (REQS,  "OPERATOR  "); 
else  put (REQS, "TYPE  "); 
end  if; 

put_line  (REQS,  convert  (name (pcomp)  )  )  ; 
declare  —  begin  generator  loop 
return_from_generator_loop:  exception; 
exi t_f rom_generator_loop ;  exception ; 
procedure  generator_loop__body (id:  psdl_id)  is 
begin 
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if  i  >  1  then 
put(REQS,",  ”); 
end  if; 

put  (REQS,  convert  (id)  )  ; 
i  :  =  i  +  1  ; 

end  generator_loop_body; 
procedure  execute_generator_loop  is  new 
psdl_id_sequence_pkg, scan(generator_loop_body)  ; 
begin 

execute_generator_loop { rqms )  ; 
exception 

when  exit_from_generator_loop  =>  null; 
end;  —  of  generator  loop 

end  put_reqm_ids ; 
end  psdl_io; 


—  specification  for  the  psdl  adt 


with  psdl_concrete_type_pkg;  use  psdl__concrete_type_pkg; 
with  psdl_graph_pkg;  use  psdl_graph_pkg; 
with  express ion_pkg;  use  express ion_pkg; 
with  generic  map  pkq; 
package  psdl_coinponent_pkg  is 

--  by  requirements  clauses  are  ignored  in  this  version. 

—  discriminant  types  and  associated  declarations, 
type  components  type  is  {psdl_operator ,  psdl^type)  ; 
type  implementationstype  is {atomic,  composite); 

type  psdlsComponent_record 

( category :  component_type ;  granularity :  implementat ion^type ) 
is  private; 

—  Main  types 

type  psdlsComponent  is  access  pedlsComponent^record; 
subtype  operator  is  psdl_component ;  —  (category  =>  psdl_operator) . 

subtype  data_type  is  psdl_component ;  --  (category  =>  psdl_type)  . 

subtype  atomiCsComponent  is  psdlsComponent;  —  (granularity  => 
atomic)  . 

subtype  atomiCsOperator  is 

operator  (category  =>  psdlsOperator,  granularity  =>  atomic); 
subtype  compositesOperator  is 

operator (category  =>  psdl_operator,  granularity  =>  composite); 
subtype  atomiCstype  is 

data_type (category  =>  psdl_type,  granularity  =>  atomic); 
subtype  composite_type  is 

data^type (category  =>  psdl^type,  granularity  =>  composite); 

null_component :  constant  psdlsComponent  :=  null; 

—  The  default  value  for  an  operation  map. 
function  eq(x,  y:  psdl_component)  return  boolean; 

—  function  eq{x,  y:  operator)  return  boolean; 

package  operation_maPsPkg  is 

new  generic_map_pkg (key  =>  psdl_id,  result  =>  operator. 
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eq_key  =>  eq,  eq_res  =>  eq, 
average_size  =>  10) ; 

subtype  operation_map  is  opera tion__map_pkg. map; 

—  An  operation  map  is  an  environment  that  binds 

—  psdl  operator  names  to  psdl  operator  definitions. 

function  empty_operation_map  return  opera tion_map; 

procedure  bind_operation (key :  in  psdl_id;  result:  in  operator; 

map:  in  out  operation_map) 
renames  operation_map_pkg .bind; 
function  fetch  (m:  opera tion__map;  x:  psdl_id)  return  operator 
renames  operation__map__pkg.  fetch ; 

--  exception  declarations 
undef ined_component :  exception; 
initial_state_undefined:  exception; 
no_data_structure :  exception; 
no_trigger :  exception; 
inpu t_r edec 1 ar ed :  exc option ; 
output_redeclared:  exception; 
state_redeclared:  exception; 
initial_value_redeclared:  exception; 
exception_redeclared:  exception; 
specified_met_redefined:  exception; 
not_a„subcomponent :  exception ; 
period_redefined:  exception; 
f ini sh__wi  thin_r ede  f ined :  excep t i on ; 
minimum_calling_period_redefined:  exception; 
maximum_response_time__redef ined :  exception; 

--  The  following  exceptions  signal  failures  of  explicit  runtime 

—  checks  for  violations  of  subtype  constraints . 

--  This  is  needed  because  ada  does  not  allow  partially  constrained 
types : 

—  if  any  discriminants  are  constrained,  then  all  must  be  constrained 
not_an_operator :  exception; 

—  raised  by  operations  on  psdl  operators  that  have  an  actual 
parameter 

—  of  type  operator  with  category  =  psdl_type. 
not_a__type :  exception; 

—  raised  by  operations  on  psdl  data  types  that  have  an  actual 
parameter 

—  of  type  data_type  with  category  =  psdl_operator . 
not_an_atomic_component :  exception; 

—  raised  by  operations  on  atomic  components  that  have  an  actual 
parameter 

—  of  type  atomic__component  with  granularity  =  composite. 
not_a_composite_component :  exception; 

—  raised  by  operations  on  atomic  components  that  have  an  actual 
parameter 

—  of  type  atomic_component  with  granularity  =  composite. 

—  operations  on  all  psdl  components 

function  component_category (c :  psdl_component )  return  component_type; 

—  Indicates  whether  c  is  an  operator  or  a  type. 

function  component_granularity (c :  psdl__component )  return 
implementation_type ; 

—  Indicates  whether  c  is  atomic  or  composite. 
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function  name(c:  psdl_coinponent)  return  psdl_id; 

—  Returns  the  psdl  name  of  the  component. 

function  generic^parameters (c :  psdl_component )  return 
type_declaration; 

~~  Returns  an  empty  type_declaration  if  no  generic  parameters  are 
declared. 

function  keywords (c:  psdl_component )  return  psdl_id_set; 

—  Returns  an  empty  set  if  no  keywords  are  specified. 

function  requirements (c :  psdl_component )  return  psdl_id_sequence; 
Returns  an  empty  secjuence  if  no  requirements  are  specified. 

function  informal_description (c :  psdl_component )  return  text; 

--  Returns  an  empty  string  if  no  informal  description  is  specified. 

function  axioms (c:  psdl_component )  return  text; 

—  Returns  an  empty  string  if  no  formal  description  is  specified. 


operations  on  psdl  operators 


function  inputs (o:  operator)  return  type_declaration; 

—  Returns  an  empty  type_declaration  if  no  inputs  are  declared. 

function  outputs (o:  operator)  return  type_declaration; 

—  Returns  an  empty  type_declaration  if  no  outputs  are  declared. 

function  states  (o:  operator)  return  type_„de deration ; 

--  Returns  an  empty  type_declaration  if  no  state  variables  are 
declared. 

function  initial_state (o :  operator;  v:  variable)  return  expression; 
--  Raises  initial_state_undef ined  if  v  is  not  initialized. 

function  get_init_map (o :  operator)  return  init_map; 

--  Returns  an  empty  init_map  if  no  initialization  exists. 

function  exceptions (o :  operator)  return  psdl_id_set; 

—  Returns  an  empty  set  if  no  exceptions  are  declared. 

function  specif  ied_maximiim_execution_time  (o :  operator)  return 
millisec; 

—  The  maximum  execution  time  specified  in  the  specification  of  o. 

—  See  also  required_maximum_execution_time . 

Returns  zero  if  no  maximum  execution  time  is  declared. 


procedure  add^input (stream:  in  psdl_id;  t:  in  type__name;  o:  in  out 
operator) ; 

—  Adds  a  binding  to  the  inputs  map. 

—  Raises  input_redeclared  if  stream  is  already  in  inputs (o). 


procedure  add_output (stream:  in  psdl_id;  t:  in  type_name;  o:  in  out 
operator) ; 

—  Adds  a  binding  to  the  outputs  map. 

—  Raises  output__redeclared  if  stream  is  already  in  outputs  (o). 
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procedure 
operator) ; 

Adds  a 
--  Raises 


add_state  (stream:  in  psdl_id;  t:  in  type_name;  o:  in  out 
binding  to  the  states  map. 

state_redeclared  if  stream  is  already  in  states  (o). 


procedure  add_initialization( stream:  in  psdl^id;  e:  in  expression; 

o:  in  out  operator) ; 

--  Adds  a  binding  to  the  init  map. 

—  Raises  initial_value_redeclared  if  stream  is  already  bound  in  the 
init  map. 


procedure  add_exception (e:  psdl_id; 

o:  in  out  operator); 

—  Raises  except ion_redeclared  if  stream  is  already  in  exceptions (o) . 

procedure  set__specif  ied_met  (met :  millisec;  o:  in  out  operator); 

—  Raises  specif ied__met_redefined  if  specif ied_met  is  already  defined. 


--  operations  on  all  atomic  psdl  componets. 


function  ada_name(a:  atomic_component)  return  ada_id; 

The  name  of  the  implementation  module, 

usually  the  same  as  the  name  of  the  PSDL  module  (see  function 

nt. 


—  create  an  atomic  operator 

function  make_a  tomi  cooper  at  or  (psdl_name :  psdl__id; 
ada_name :  ada_i d ; 

gen_par:  type_declaration  :=  empty_type_declaration; 
keywords:  psdl_id_set  :=  empty; 
informal_description:  text  :=  empty; 
axioms:  text  :=  empty; 

input,  output,  state:  type__declaration  :  = 
empty_type_declaration; 

initialization_map:  init__map  :=  empty_init_map; 
exceptions:  psdl_id_set  :=  empty; 
specified__met :  millisec  :=  undefined_time; 
requirements:  psdl_id_sequence  :=  empty  ) 
return  atomic_operator; 

create  an  atomic  type 

function  make_atomic_type  (psdl_name :  psdl_id; 
ada_name :  ada_i  d ; 
model :  type_declaration; 
operations:  operation_map; 

gen__par:  type_declaration  :=  empty_type_declaration; 
keywords:  psdl_id_set  :=  empty; 
informal_description,  axioms:  text  :=  empty; 
requirements:  psdl_id__sequence  :=  empty  ) 
return  atomic_type; 


—  operations  on  composite  operators. 


function  graph (co:  compos ite_opera tor)  return  psdl_graph; 

function  streams (co:  compos it e_operator)  return  type_declaration; 

—  Returns  an  empty  type_declaration  if  no  local  streams  are  declared. 
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function  timers (co:  compos ite_opera tor)  return  psdl_id_set; 

—  Returns  an  empty  set  if  no  timers  are  declared. 

function  get_trigger (component_op :  op_id;  co:  composite_operator ) 
return  trigger; 

—  Returns  the  entire  triggering  condition  for  the  specified  component 
operator . 

—  Derived  from  the  control  constraints. 

—  Raises  no_trigger  if  component_op  has  no  trigger. 

--  Raises  not_a_subcomponent  if  component_op  is  not  a  vertex  in 
graph ( CO ) . 

function  get_trigger_type (component_op :  op_id;  co:  composite_operator) 
return  trigger^type; 

--  Returns  the  type  of  triggering  condition  for  the  specified 
component  operator. 

--  Derived  from  the  control  constraints,  result  is  ’’none"  if  no 
trigger. 

Raises  not_a_subcomponent  if  component_op  is  not  a  vertex  in 
graph { CO ) . 

function  execution_guard(component_op:  op_id;  co:  compos i te_operat or ) 
return  expression; 

Returns  the  if  part  of  the  triggering  condition  for  the  component 
operator, 

—  "true"  if  no  triggering  condition  is  specified. 

Raises  not_a_subcomponent  if  component_op  is  not  a  vertex  in 
graph ( CO ) . 

function  output_guard ( component_op :  op_id;  output__stream:  psdl_id; 

co:  compos ite_opera tor)  return  expression; 

--  Returns  the  if  part  of  the  output  guard  of  the  specified  output 
stream 

--  for  the  component  operator, 

--  "true"  if  no  output  constraint  with  the  stream  is  specified. 

--  Raises  not_a_subcomponent  if  component__op  is  not  a  vertex  in 
graph { CO ) . 

function  exception_trigger (component_op :  op_id;  exception_name : 
psdl_id; 

co:  composite_operator)  return  expression; 

—  Returns  the  if  part  of  the  exception  trigger  for 
the  component  operator  and  exception  name, 

--  "true"  if  there  is  an  unconditional  exception  trigger 
“““  in  the  control  contraints,  "false"  if  no  exception 

—  trigger  is  specified  for  component_op  in  the  control  constraints. 

—  Raises  not_a_subcomponent  if  component_op  is  not  a  vertex  in 
graph ( CO ) . 

function  timer_operations (component_op:  op_id;  co:  compos ite_opera tor) 
return  timer_op__set ; 

—  Returns  the  timer_op  part  of  the  control  constraint  for  the 

—  component  operator,  "none"  if  no  timer  operation  is  specified. 

—  Raises  not_a__subcomponent  if  component_op  is  not  a  vertex  in 
graph ( CO ). 

function  timer_op_guard(component_op:  op_id;  timer__id:  psdl_id; 

op_id :  t imer_op_id ; 

co:  composite_operator)  return  expression; 

—  Returns  the  the  timer  operation  guard  of  the  specified  timer  and 
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—  timer  operation  for  the  component  operator, 

—  "true"  if  no  timer  operation  guard  is  specified. 

—  Raises  null_component  if  co  is  null. 

—  Raises  not_an_operator  if  co  is  a  psdl  type. 

—  Raises  not_a_composite_component  if  co  is  atomic. 

—  Raises  not_a_subcomponent  if  component_op  is  not  a  vertex  in 
graph (co)  . 

function  period {component__op:  op__id;  co:  compos i t e__operat or ) 
return  millisec; 

—  Returns  the  period  part  of  the  control  constraint  for  the 

—  component  operator,  zero  if  no  period  is  specified. 

—  Raises  not_a_subcomponent  if  component_op  is  not  a  vertex  in 
graph { CO ) . 

function  f ini sh_wi thin {component_op :  op_id;  co:  composite_operator) 
return  millisec; 

—  Returns  the  f inish_within  part  of  the  control  constraint  for  the 

—  component  operator,  zero  if  no  f inish_within  is  specified. 

—  Raises  not_a_subcomponent  if  component_op  is  not  a  vertex  in 
graph { CO ) . 

function  minimum_calling_period (component_op :  op_id;  co : 
composite^operator) 

return  millisec; 

—  Returns  the  minimiim  calling  period  part  of  the  control  constraint 
for  the 

--  component  operator,  zero  if  no  minimxun  calling  period  is  specified. 

—  Raises  not_a_subcomponent  if  component__op  is  not  a  vertex  in 
graph ( CO ) . 

function  maximum_response_time  (component_op :  op_id;  co: 
compos ite_opera tor) 

return  millisec; 

—  Returns  the  maximum_response_time  part  of  the  control  constraint 
for  the 

--  component  operator,  zero  if  no  maximum_response__time  is  specified. 
Raises  not_a_subcomponent  if  component_op  is  not  a  vertex  in 
graph ( CO ) . 

function  required_maximum_execution_time 

( component_op :  op_id;  co:  compos ite_oper a tor)  return 

millisec; 

--  Returns  the  maximum  execution  time  part  of  the  control  constraint 
for  the 

—  component  operator,  zero  if  no  maximum  execution  time  is  specified 
--  in  the  graph.  This  includes  time  used  by  the  implementations 

—  of  the  control  constraints  and  stream  operations,  and  should  be 
--  greater  than  or  equal  to  the  specif ied__maximum__execution  time  for 

—  the  component  operator  if  it  is  defined (greater  than  zero). 

--  Raises  not_a_subcomponent  if  component_op  is  not  a  vertex  in 

graph ( CO ) . 

function  latency (producer_op,  consumer_op:  op_id;  stream_name: 
psdl_id; 

co:  composite_operator)  return  millisec; 

--  Returns  the  timing  label  on  the  edge  from  the  producer  operator 

—  to  the  consumer  operator  in  the  graph,  zero  if  none. 

—  Represents  the  maximum  data  transmission  delay  allowed  for 

--  the  data  stream,  for  modeling  network  delay  in  distributed  systems. 
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—  Raises  not_a_subcoinponent  if  component^op  is  not  a  vertex  in 
graph ( CO ) . 

function  implement a tion_descr ip ti on (co:  composite_operator) 
return  text; 


—  Create  a  composite  operator. 

function  make_composite_operator (name :  psdl_id; 

gen_par:  type_declaration  :=  empty_type„declaration; 
keywords:  psdl__id__set  :=  empty; 
informal_description:  text  :=  empty; 
axioms:  text  :=  empty; 

input,  output,  state:  type_declaration  := 
emp  ty_ t yp  e_dec 1 ar a t i on ; 

initialization_map:  init_map  :=  empty_init_map; 
exceptions :  psdl_id_set  : =  empty; 
specif ied_met:  millisec  :=  undef ined_time; 
graph:  psdl_graph  :=  empty_jpsdl_graph; 
streams:  type_declaration  :=  empty_type_declaration; 
timers:  psdl_id_set  :=  empty; 
trigger :  tr igger_map  : =  empty_trigger_map ; 
exec_guard :  exec_guard_map  :  =  empty_exec_guard_map  ; 
out_guard:  out_guard_map  :=  empty_out_guard__map ; 
excep_trigger :  excep_trigger_map  :  =  empty„excep_tr igger__map 
timer_op:  timer_op_map  :=  empty_timer_op_map; 
per,  fw,  mcp,  mrt:  timing_map  :=  empty_timing_map; 
impl_desc:  text:=  empty; 
requirements:  psdl_id_sequence  :=  empty) 
return  compos i t e_opera tor ; 


procedure  add_vertex  { opname :  in  op_id;  co:  in  out  composite_operator ; 

met:  in  millisec  :=  undefined_time) ; 

procedure  add_edge{x,  y:  in  op_id;  stream:  in  psdl_id; 

CO:  in  out  compos ite_opera tor; 
latency:  in  millisec  :=  undef ined_time)  ; 


procedure 

procedure 

procedure 

procedure 

procedure 

procedure 


add_stream(s :  in  psdl_id;  t:  in  type_name; 

co:  in  out  compos ite_oper at or ) ; 

remove_stream(s:  in  psdl_id;  co:  in  out  composite_operator) 

add_timer(t:  in  psdl_id;  co:  in  out  composite_operator)  ; 

set__graph(g:  in  psdl_graph;  co:  in  out  composite__operator); 

set_trigger_type{o:  in  op_id;  t:  in  trigger_type; 

CO:  in  out  composite_operator) ; 

set_trigger (o:  in  op_id;  t:  in  trigger; 

co:  in  out  composite_operator) ; 


procedure  set_execution_guard(o :  in  op__id;  e:  in  expression; 

CO:  in  out  compos ite_opera tor) ; 


procedure  set_output__guard  { o : 

e : 


composite_operator)  ; 


in  op_id;  stream:  in  psdl_id; 
in  expression;  co:  in  out 


procedure  set_exception_trigger (o :  in  op_id;  excep:  in  psdl_id; 

e:  in  expression; 
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co:  in  out  compos i t e__operat or )  ; 

procedure  add_timer_op (o :  op_id;  timer_id:  in  psdl_id;  top:  in 
timer_op_id; 

e:  in  expression;  co:  in  out 

compos ite_operat or) ; 

procedure  set _period(o:  in  op_id;  p:  in  millisec; 

co:  in  out  compos i te__operator )  ; 

Raises  per iod_rede fined  if  the  period  is  already  defined. 


procedure  set_f ini sh__wi thin (o :  in  op_id;  fw:  in  millisec; 

co:  in  out  compos ite_operat or ) ; 

--  Raises  f ini sh_within_rede fined  if  the  f inish_within  is  already 
defined. 

procedure  set_minimum_calling_period(o :  in  op_id;  mcp:  in  millisec; 

co:  in  out  composite_operator ) ; 
--  Raises  minimum_calling_period__rede fined  if  the 

—  minimum_calling_period  is  already  defined. 

procedure  set_maximum_response_time  (o :  in  op_id;  mrt:  in  millisec; 

co:  in  out  composite_operator ) ; 

—  Raises  maximum_response_time_rede fined  if  the 

—  maximum_response_time  is  already  defined. 


--  operations  on  all  psdl  types. 


function  model (t:  data_type)  return  type_declaration; 

—  Returns  the  conceptual  representation  declared  in  the  specification 
part, 

--  empty  if  not  specified. 

function  operations (t :  data_type)  return  opera t ion_map; 

--  Returns  an  environment  binding  operation  names  to  operation 
definitions , 

--  an  empty  map  if  the  type  does  not  define  any  operations. 


--  operations  on  composite  psdl  data  types. 


function  data„structure ( t :  compos ite_type)  return  type_name; 

Returns  the  data  structure  declared  in  the  psdl  implementation 

part . 

—  Raises  no_data_structure  if  the  type  is  implemented  in  Ada. 

““  Create  a  composite  type, 
function  make_composite_type  (name :  psdl__id; 
model :  type_declaration; 
data_structure :  type_name  ; 
operations:  opera tion__map; 

gen_par:  type_declaration  :=  empty_type_declaration; 
keywords:  psdl_id_set  :=  empty; 
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inforinal_description,  axioms:  text  :=  empty; 
requirements:  psdl_id__sequence  :=  empty  ) 
return  compos ite_ type; 

—  System  functions 


procedure  recycle (c:  in  out  psdl_component) ; 

—  Sets  c  to  the  null_component  and  recycles  its  storage. 


private 

type  psdl_component_record (category:  component_type; 

granularity:  implementation_type)  is 


record 

name:  psdl_id; 
gen _par :  type„declaration  ; 
keyw:  psdl_id_set; 
inf_desc,  ax:  text; 
reqm:  psdl_id_seguence; 
case  category  is 

when  psdl_operator  -> 

input,  output,  state:  type_declaration; 

init:  init_map; 

excep:  psdl_id_set; 

smet:  millisec; 

case  granularity  is 

when  atomic  =>  o_ada_name:  ada__id; 
when  composite  => 
g:  psdl_graph; 
str:  type_declaration; 
tim:  psdl_id_set; 
trig :  trigger__map  ; 
eg :  exec_guard_map ; 
og :  ou t_guar d_map ; 
et :  excep_trigger_map ; 
t  im_op :  t  imer_op_map ; 
per,  fw,  mcp,  mrt:  timing_map; 

impl__desc:  text;  --  Description  in  the  implementation 


part. 

end  case; 
when  psdl_type  => 

mdl:  type__declaration; 
ops :  operat ion_map ; 
case  granularity  is 

when  atomic  =>  t_ada_name:  ada_id; 
when  composite  =>  data_str:  type_name; 
end  case; 
end  case; 
end  record; 

—  Invariant:  a  psdl  component  contains  the  only  references 

—  to  all  of  its  subcomponents  of  type  set{t}  or  map{t}, 

—  for  all  types  t. 

—  The  assign  operation  should  be  used  on  those  components 

—  whenever  these  components  are  passed  in  or  out  by  the  operations 

—  becuase  it  makes  copies,  thus  preserving  the  invariant. 

““  This  makes  it  safe  to  recycle  a  psdl  component 

—  when  the  last  reference  is  gone, 

—  because  the  subcomponents  cannot  be  shared  with  anything  else, 
end  psdl_component_pkg; 
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package  body  psdl_component _pkg  is  use  operation_inap_pkg  ; 
function  eq  (  x  , 

y  :  psdl__component  )  return  boolean  is 
begin  return  {  x  .  name  .  s  =  y  .  name  ,  s  )  ; 

end  eq; 

function  empty_operation_map  return  operation_map  is  m  ; 
op  e  r  a  t  i  on__map  ; 

begin  create  (  null_component  , 
m  )  ; 

return  m  ; 

end  emp ty_ope r a t i on_map ; 

function  component_category  (  c  :  psdl_component  )  return 
component_type  is 
begin 

if  c  =  null_component 
then  raise  undefined_component ; 
end  if; 

return  c  .  category  ; 
end  component_category; 

function  component_granularity  (  c  :  psdl_component  )  return 
implementation_type  is 
begin 

if  c  =  null_component 
then  raise  undef ined_component ; 
end  if; 

return  c  .  granularity  ; 
end  component_granularity; 

function  name  (  c  :  psdl__component  )  return  psdl_id  is 
begin 

if  c  =  null_component 
then  raise  undef ined_component; 
end  if; 

return  c  .  name  ; 
end  name; 

function  generic_parameters  (  c  :  psdl_component  )  return 
type_declaration  is  result  :  type_declaration  ; 

begin 

if  c  =  null_component 
then  raise  undefined_component ; 
end  if; 

assign  (  result  , 

c  .  gen_par  )  ; 
return  result  ; 
end  generic_parameters ; 

function  keywords  (  c  :  psdl_component  )  return  psdl_id_set  is 
result  :  psdl_id_set  ; 

begin 

if  c  =  null__component 
then  raise  undef ined_component; 
end  if; 

assign  (  result  , 

c  .  keyw  ) ; 

return  result  ; 
end  keywords; 

function  requirements (  c  :  psdl_component  )  return 
psdl__id__sequence  is  result  :  psdl_id_sequence  ; 
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begin 

if  c  =  null_component 
then  raise  undef ined_component ; 
end  if; 

assign  (  result  ,  c  .  reqm  ) ; 
return  result; 
end  requirements; 

function  informal_description  {  c  :  psdl_component  )  return  text 
is 

begin 

if  c  =  null_component 
then  raise  undef ined_component ; 
end  if; 

return  c  .  inf_desc  ; 
end  informal_description; 

function  axioms  (  c  :  psdl_component  )  return  text  is 
begin 

if  c  =  null_component 
then  raise  undef ined_component ; 
end  if; 

return  c  .  ax  ; 
end  axioms; 

function  inputs  (  o  :  operator  )  return  type_declaration  is 
result  :  type_declaration  ; 

begin 

if  o  =  null_component 

then  raise  undef ined_component ; 

elsif  o  .  category  /=  psdl_operator  then  raise  not_an_operator; 

else  assign  (  result  , 
o  .  input  )  ; 

return  result  ; 
end  if; 
end  inputs; 

function  outputs  {  o  :  operator  )  return  type_declaration  is 
result  :  type__declaration  ; 

begin 

if  o  =  null_component 

then  raise  undef ined^component ; 

elsif  o  ,  category  /=  psdl_operator  then  raise  not_an_operator; 

else  assign  (  result  , 
o  .  output  ) ; 

return  result  ; 
end  if; 
end  outputs; 

function  states  (  o  :  operator  )  return  type_declaration  is 
result  :  type_declaration  ; 

begin 

if  o  =  null_component 

then  raise  undefined_component ; 

elsif  o  .  category  /=  psdl_operator  then  raise  not_an_operator ; 

else  assign  (  result  , 
o  .  state  ) ; 
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return  result  ; 
end  if; 
end  states; 

function  initial_state  (  o  :  operator  ; 

V  :  variable  )  return  expression  is 
begin 

i  f  o  =  nu  1  l_component 

then  raise  undef ined_component; 

elsif  o  .  category  /=  psdl__operator  then  raise  not_an_operator ; 
els if  not  member  (  v  , 

o  .  init  )  then  raise  initial_state_undef ined; 
else  return  fetch  {  o  .  init  , 

V  ) 

end  if; 

end  initial_state; 

function  get_init_map  (  o  :  operator  )  return  init_map  is  result 
:  init_map  ; 

begin 

if  o  =  null_component 

then  raise  undefined__component ; 

elsif  o  .  category  /=  psdl_operator  then  raise  not_an_operator; 

else  assign  (  result  , 
o  .  init  ) ; 

return  result  ; 
end  if; 

end  get__init_map; 

function  exceptions  (  o  :  operator  )  return  psdl_id_set  is  result 
:  psdl_id__set  ; 

begin 

if  o  =  nul l_component 

then  raise  undefined_component; 

elsif  o  .  category  /=  psdl_operator  then  raise  not_an_operator; 

else  assign  (  result  , 
o  .  excep  ) ; 

return  result  ; 
end  if; 

end  exceptions; 

function  specif ied_maximum_exe cut i on-time  (  o  :  operator  )  return 
millisec  is 
begin 

if  o  =  null_component 

then  raise  undefined__component  ; 

elsif  o  .  category  /=  psdl_operator  then  raise  not_an_operator ; 

else  return  o  .  smet  ; 
end  if; 

end  spec i f ied_maximum_execut i on-time  ; 
procedure  add_input  (  stream  :  in  psdl_id  ; 
t  :  in  type_name  ; 
o  :  in  out  operator  )  is 
begin 
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if  o  =  null_component 

then  raise  undef ined^component ; 

elsif  o  ,  category  /=  psdl_operator  then  raise  not_an_operator ; 
elsif  member  (  stream  , 

o  .  input  )  then  raise  input_redeclared; 

else  bind  (  stream  , 
t 

o  .  input  ) ; 
end  if; 

end  add_input; 

procedure  add_output  (  stream  :  in  psdl_id  ; 
t  :  in  tYpe_name  ;  ' 

o  :  in  out  operator  )  is 
begin 

if  o  =  null_component 

then  raise  undef ined_component ; 

elsif  o  .  category  /=  psdl_operator  then  raise  not_an_operator ; 
elsif  member  (  stream  , 

o  .  output  )  then  raise  output_redeclared; 

else  bind  (  stream  , 
t 

o  .  output  ) ; 
end  if; 

end  add_output; 

procedure  add__state  (  stream  ;  in  psdl_id  ; 
t  :  in  type_name  ; 
o  :  in  out  operator  )  is 
begin 

if  o  =  null_component 

then  raise  undef ined_component ; 

elsif  o  .  category  /=  psdl_„operator  then  raise  not_an_operator ; 
elsif  member  (  stream  , 

o  .  state  )  then  raise  state_redeclared; 

else  bind  (  stream  , 
t 

o  .  state  ) ; 
end  if; 

end  add_state; 

procedure  add_initialization  (  stream  :  in  psdl__id  ; 
e  :  in  expression  ; 
o  :  in  out  operator  )  is 
begin 

if  o  =  null_component 

then  raise  undef ined__component  ; 

elsif  o  .  category  /=  psdl_operator  then  raise  not_an_operator ; 
elsif  member  {  stream  , 

o  .  init  )  then  raise  initial_value_redeclared; 

else  bind  (  stream  , 
e 
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o  .  init  )  ; 
end  if; 

end  add_initialization; 
procedure  add_exception  (  e  :  psdl_id  ; 
o  :  in  out  operator  )  is 
begin 

if  o  =  null__coinponent 

then  raise  undef ined_component ; 

elsif  o  .  category  /=  psdl_operator  then  raise  not_an_operator ; 
elsif  member  {  e  , 

o  .  excep  )  then  raise  exception_redeclared; 

else  add  (  e  , 
o  .  excep  ) ; 
end  if; 

end  add_exception; 

procedure  set_specified__met  (  met  :  millisec  ; 
o  :  in  out  operator  )  is 
begin 

: f  o  =  null_component 

then  raise  undef ined_component ; 

elsif  o  .  category  /=  psdl_operator  then  raise  not_an_operator ; 

elsif  o  .  smet  /=  unde fined_ time  then  raise  input_redeclared; 

else  o  .  smet  :=  met  ; 
end  if; 

end  set_specified_met; 

function  ada_name  (  a  :  atomic_component  )  return  ada_id  is 
begin 

if  a  =  null_component 
then  raise  undef ined_component ; 
end  if; 

case  a  .  granularity  is  when  atomic  =>  case  a  .  category  is 

when  psdl_operator  =>  return  a  .  o_ada_name  ; 

when  psdl_type  =>  return  a  .  t_ada_name  ; 
end  case; 

when  composite  =>  raise  not_an_atomic__component ; 
end  case; 
end  ada_name; 

function  make_atomic_operator  (  psdl_name  :  psdl_id  ; 
ada_name  :  ada__id  ; 

genj>ar  :  type__declaration  :=  empty_type_declaration  ; 
keywords  :  psdl_id_set  :=  empty  ; 

informal_description  :  text  :=  empty  ; 
axioms  ;  text  :=  empty  ; 
input  , 
output  , 

state  :  type_declaration  :=  empty_type__declaration  ; 
initialization_map  :  init_map  :=  empty_init_map  ; 
exceptions  :  psdl_id_set  :=  empty  ; 
specif ied_met  :  millisec  :=  undef ined_time  ; 

requirements  :  psdl_id_sequence  :=  empty  )  return  atomic_operator  is 
X  :  atomic_operator  ; 

begin  x  :=  new  psdl_component_record  (  category  =>  psdl_operator 

t 

granularity  =>  atomic  )  ; 
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X  .  name  :=  psdl_,name  ; 

X  .  o_ada_name  : =  ada_name  ; 

X  .  gen_par  ;=  gen__par  ; 

X  .  keyw  :  =  keywords  ; 

X  ,  inf_desc  :=  informal_description  ; 

X  .  reqm  :=  requirements  ; 

X  .  ax  :=  axioms  ; 

X  .  input  :=  input  ; 

X  .  output  :=  output  ; 

X  .  state  ;=  state  ; 

X  .  init  :=  initialization__map  ; 

X  .  excep  :=  exceptions  ; 

X  .  smet  :=  specif ied_met  ; 
return  x  ; 

end  make_atomic__operator; 

function  make_atomic_type  {  psdl_name  :  psdl_id  ; 
ada_name  :  ada_id  ; 
model  :  type_declaration  ; 
operations  :  operation_map  ; 

gen_par  :  type_declaration  :=  empty_type_declaration  ; 
keywords  :  psdl_id_set  :=  empty  ; 
informal_description  , 
axioms  :  text  :=  empty; 

requirements  :  psdl_id_sequence  :=  empty  )  return  atomic_type  is  x 
atomic_type  ; 

begin  x  :=  new  psdl_component_record  (  category  =>  psdl_type  , 
granularity  =>  atomic  )  ; 

X  .  name  :=  psdl_name  ; 

X  .  t_ada_name  :=  ada_name  ; 

X  .  mdl  :=  model  ; 

X  .  ops  :=  operations  ; 

X  .  gen_^ar  :=  gen_par  ; 

X  .  keyw  :=  keywords  ; 

X  .  inf_desc  :=  informal_description  ; 

X  .  reqm  :=  requirements  ; 

X  .  ax  :=  axioms  ; 

return  x  ; 

end  make_atomic_type; 

function  graph  (  co  :  compos ite_opera tor  )  return  psdl_graph  is 

result  :  psdl_graph  ; 

begin 

if  CO  =  null_component 

then  raise  undefined_component ; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not_an_operator ; 
end  if; 

assign  (  result  , 

CO  .  g  )  ; 

return  result  ; 
end  graph; 

function  streams  (  co  :  compos ite__opera tor  )  return 

type_declaration  is  result  :  type_declaration  ; 

begin 

if  CO  =  null_component 

then  raise  undefined_component ; 

elsif  co  .  category  /=  psdl_operator  then  raise  not_an_operator ; 
end  i f ; 
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assign  (  result  , 

CO  .  str  )  ; 

return  result  ; 
end  streams; 

function  timers  (  co  :  compos ite_operat or  )  return  psdl_id_set  is 

result  :  psdl_id_set  ; 

begin 

if  CO  =  null_component 

then  raise  undef ined_component ; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not_an_operator ; 
end  if; 

assign  (  result  , 

CO  .  tim  ) ; 

return  result  ; 
end  timers; 

function  get_t rigger  (  component_op  :  op_id  ; 

CO  :  compos ite_opera tor  )  return  trigger  is 
begin 

if  CO  =  null_component 

then  raise  undef ined_component ; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not_an_operator ; 

elsif  not  has_vertex  {  component_op  , 
co  .  g  )  then  raise  not_a__subcomponent ; 

else  return  fetch  (  co  .  trig  , 
component_op  )  ; 

end  if; 

end  get_trigger; 

function  get__trigger_type  (  component_op  :  op_id  ; 

CO  :  composite_operator  )  return  trigger_type  is  t_record  : 
trigger  ; 

begin 

if  CO  =  null_component 

then  raise  unde  f ined_c omponen t ; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not_an_operator ; 

elsif  not  has_vertex  (  component_op  , 
co  .  g  )  then  raise  not_a_subcomponent ; 

elsif  (  not  member  (  c omponen t_op  , 

CO  .  trig  )  )  then  return  by__none  ; 

else  t_record  :=  fetch  (  co  .  trig  , 
component_op  )  ; 

return  t_record  .  tt  ; 
end  if; 

end  get„trigger_type; 

function  execation_guard  (  component__op  :  .  op_id  ; 
co  :  composite_operator  )  return  expression  is 
begin 

i f  c o  =  nu 1 l_c omp onen t 

then  raise  undef ined^component ; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not_an_operator ; 
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elsif  not  has_vertex  (  component_op  , 

CO  .  g  )  then  raise  not_a_subcomponent ; 

elsif  (  not  member  (  component_op  , 

CO  .  eg  )  )  then  return  true_expression  ; 

else  return  fetch  {  co  .  eg  , 
component_op  )  ; 

end  if; 

end  execution_guard; 

function  output_guard  (  component__op  :  op__id  ; 
output_stream  :  psdl_id  ; 

co  ;  compos ite_operat or  )  return  expression  is  temp_id  :  output_id 
begin 

if  co  =  null_component 

then  raise  undef ined_component; 

elsif  co  .  category  /=  psdl_operator  then  raise  not_an_operator ; 
end  if; 

if  not  has_vertex  (  component__op  , 

CO  .  g  ) 

then  raise  not_a_subcomponent ; 
end  if; 

temp__id  .  op  ;=  component^op  ; 
temp_id  .  stream  :=  output_stream  ; 

if  (not  meit±)er  {  temp_id  , 

CO  .  og  )  ) 

then  return  true_expression  ; 

else  return  fetch  (  co  .  og  , 
temp_id  )  ; 

end  if; 

end  output_guard; 

function  exception_trigger  (  component_op  :  op_id  ; 
exception_name  :  psdl_id  ; 

co  :  composite_operator  )  return  expression  is  temp_id  :  excep_id 

f 

begin 

if  CO  =  null__component 

then  raise  undef ined_component ; 

elsif  CO  .  category  /-  psdl_operator  then  raise  not_an_operator; 

elsif  not  has_vertex  (  component_op  , 

CO  .  g  )  then  raise  not__a_subcomponent  ; 
end  if; 

temp__id  .  op  :  =  component_op  ; 
temp_id  .  excep  :=  exception_name  ; 

if  (  not  member  (  temp_id  , 

CO  .  et  )  ) 

then  return  false_expression  ; 

else  return  fetch  (  co  .  et  , 
temp_id  )  ; 

end  if; 


77 


result 


end  exception_trigger; 

function  timer_operations  (  component_op  :  op_id 
CO  :  composite_operator  )  return  timer_op„set  is 
t  ime  r_op_s  e  t  ; 

begin 

if  CO  =  null^component 
then  raise  undef ined_component ; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not_an_operator ; 

els if  not  has_vertex  (  component_op  , 

CO  .  g  )  then  raise  not_a_subcomponent  ; 

else  assign  {  result  , 
fetch  {  CO  .  tim_op  , 
component__op  )  )  ; 

return  result  ; 
end  if; 

end  timer_operations; 

function  timer__op_guard  {  component^op  :  op_id  ; 
timer_id  :  psdl_id  ; 
op„id  :  timer„op_id  ; 

CO  :  composite_operator  )  return  expression  is  top_set  : 
t  imer_op_s  e  t  ; 

begin 

if  CO  =  null_coinponent 

then  raise  undefined_component ; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not_an_operator ; 

elsif  not  has_vertex  (  component^op 

CO  .  g  )  then  raise  not_a_subcomponent  ; 

else  top_set  :=  fetch  (  co  .  tim_op  , 
component__op  )  ; 

end  i f ; 

declare  begin  generator  loop 
generator_loop_return_value :  expression; 
return_f roin_generator_loop :  exception  ; 
exit__f rom_generator__lopp :  exception; 
procedure  generator_loop__body (top:  timer_op)  is 
begin 

if  eg  (  top  .  timer_id  , 

timer_id  )  and  then  top  .  op__id  =  op_id 
then  generator_loop_return_value  :=  top  .  guard  ; 
raise  return_from_generator_loop; 
end  if; 

end  generator_loop_body; 

procedure  execute_generator_loop  is  new  timer_op_set_pkg  . 

scan(generator_loop_body)  ; 

begin 

execute_generator_loop (top_set  ) ; 
exception 

when  exit_from_generator_loop  =>  null; 

when  return_from_generator_loop  =>  return  generato.r_loop_return_value; 
end;  —  of  generator  loop 
return  true_expression  ; 
end  timer_op_guard; 
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function  period  {  component_op  :  op_id  ; 

CO  :  composite_operator  )  return  millisec  is 
begin 

if  CO  =  null__component 

then  raise  undefined_component ; 

elsif  not  has_vertex  (  component_op  , 

CO  .  g  )  then  raise  not_a_subcoinponent ; 

else  return  fetch  {  co  .  per  , 
component_op  )  ; 

end  if; 
end  period; 

function  f ini sh_wi thin  (  coraponent_op  ;  op_id  ; 
co  :  composite_operator  )  return  millisec  is 
begin 

if  co  =  null__component 

then  raise  undefined_component ; 

elsif  not  has_vertex  (  component_op  , 

CO  .  g  )  then  raise  not_a_subcomponent ; 

else  return  fetch  (  co  .  fw  , 
component_op  )  ; 

end  if; 

end  f ini sh_wi thin ; 

function  minimum_calling_period  (  component_op  :  op_id  ; 

CO  ;  compos it e_opera tor  )  return  millisec  is 
begin 

if  CO  =  null_component 

then  raise  undefined_component ; 

elsif  not  has__vertex  (  component_op  , 

CO  .  g  )  then  raise  not_a__subcomponent ; 

else  return  fetch  (  co  .  mcp  , 
component_op  )  ; 

end  if; 

end  minimum_calling_period; 

function  maximum_response_time  (  component_op  :  op_id  ; 
co  :  composite_operator  )  return  millisec  is 
begin 

if  CO  =  null_component 

then  raise  unde  f  ined_componen t  ; 

elsif  not  has__vertex  {  component__op  , 
co  .  g  )  then  raise  not_a_subcomponent ; 

else  return  fetch  (  co  .  mrt  , 
c  omp  onen  t_op  )  ; 

end  if; 

end  maximum_r e  spons  e_t  ime  ; 

function  required_maximum_execution_time  (  component_op  :  op__id  ; 
co  :  compos ite_operator  )  return  millisec  is 
begin 

if  CO  =  null__component 

then  raise  undefined_component ; 

elsif  not  has_vertex  (  component_op  , 

CO  .  g  )  then  raise  not_a_subcomponent ; 
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else  return  maximuiti_exe  cut  longtime  (  component^op  , 

CO  .  g  )  ; 

end  if; 

end  required_inaximum__execution_t ime  ; 
function  latency  (  producer_op  , 
consuiner_op  :  op_id  ; 
stream^name  :  psdl_id  ; 

CO  :  compos ite__opera tor  )  return  millisec  is 
begin 

if  CO  =  null_component 

then  raise  undef ined_component ; 

els  if  not  has__vertex  (  producer_op  , 

CO  .  g  )  or  not  has_vertex  (  consumer_op  , 

CO  .  g  )  then  raise  not_a_subcomponent ; 

else  return  latency  (  producer_op  , 
consuiner__op  , 
stream_name 
CO  .  g  )  ; 

end  if; 
end  latency; 

function  implementation_description  (  co  :  compos ite__operator  ) 

return  text  is 
begin 

if  co  =  null_component 
then  raise  undefined_component ; 
end  if; 

return  co  .  implode sc  ; 
end  implementation_description; 
function  make__composite_operator  {  name  :  psdl_id  ; 
gen_par  ;  type_declaration  :=  empty_type_declaration  ; 
keywords  :  psdl_id_set  :=  empty  ; 
informal_description  :  text  :=  empty  ; 
axioms  :  text  :  =  empty  ; 
input  , 
output  , 

state  :  type_declaration  :=  empty_type_declaration  ; 
initiali2ation_map  :  init_map  :=  empty__init_map  ; 
exceptions  :  psdl_id_set  :=  empty  ; 
specif ied_met  :  millisec  :=  unde fined^t ime  ; 
graph  :  psdl_graph  :=  empty_psdl__graph  ; 
streams  :  type_declaration  :=  empty_type_de deration  ; 
timers  :  psdl_id_set  :=  empty  ; 
trigger  :  trigger_map  :=  empty_trigger__map 
exec_guard  :  exec__guard__map  ;=  empty__exec_guard_map  ; 
out_guard  :  out__guard_map  :  =  empty__out_guard_map  ; 
excep_trigger  :  excep_trigger_map  ;=  empty_excep_trigger_map  ; 
timer_op  ;  timer_op__map  :=  empty_timer_op_map  ; 
per  , 
fw  , 
mcp  , 

mrt  :  timing_map  :=  empty_timing_map  ; 
implode  sc  :  text  :=  empty  ; 

requirements  :  psdl_id__sequence  :=  empty  )  return  compos  ite_oper  a  tor 
is  X  :  composite_operator  ; 

begin  x  :=  new  psdl_component_record  (  category  =>  psdl_operator 

t 

granularity  =>  composite  )  ; 

X  .  name  :=  name  ; 


80 


X  .  gen_par  :=  gen_par  ; 

X  .  keyw  :=  keywords  ; 

X  .  inf_desc  :=  inf orinal_description  ; 

X  .  reqm  :=  requirements  ; 

X  .  ax  :=  axioms  ; 

X  .  input  : =  input  ; 

X  .  output  :=  output  ; 

X  .  state  :=  state  ; 

X  .  init  :=  initial iz at ion_map  ; 

X  .  excep  :=  exceptions  ; 

X  .  smet  :=  specif ied_met  ; 

X  .  g  : =  graph  ; 

X  .  str  :=  streams  ; 

X  .  tim  :=  timers  ; 

X  .  trig  :=  trigger  ; 

X  .  eg  :=  exec_guard  ; 

X  .  og  :=  out^guard  ; 

X  .  et  :=  excep_trigger  ; 

X  .  tim_op  : =  timer_op  ; 

X  .  per  :=  per  ; 

X  .  f  w  :  =  f  w  ; 

X  .  mcp  :=  mcp  ; 

X  .  mrt  :=  mrt  ; 

X  .  impl_desc  :=  impl_desc  ; 
return  x  ; 

end  make__composite__operator  ; 
procedure  add_vertex  (  opname  :  in  op_id  ; 

CO  :  in  out  compos ite_opera tor  ; 
met  :  in  millisec  :=  undef ined_time  )  is 
begin 

if  CO  =  null_component 

then  raise  undef ined_coraponent ; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not_an_operator ; 
end  if; 

CO  ■  g  :=  add__vertex  (  opname  , 

CO  .  g 
met  )  ; 

end  add_vertex; 
procedure  add_edge  {  x  , 
y  :  in  op_id  ; 
streaim  :  in  psdl_id  ; 

CO  :  in  out  compos ite_oper a tor  ; 
latency  :  in  millisec  :=  undefined_time  )  is 
begin 

if  CO  =  null_component 

then  raise  undef ined_component; 

elsif  CO  ,  category  /=  psdl_operator  then  raise  not_an_operator ; 
end  if; 

CO  .  g  ; =  add_edge  (  x  , 

Y 

stream  , 

CO  .  g  , 
latency  )  ; 

end  add_edge; 

procedure  add__stream  (  s  :  in  psdl_id  ; 
t  :  in  type_name  ; 

CO  :  in  out  compos ite_opera tor  )  is 
begin 

if  CO  =  null_component 
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then  raise  undef ined_component ; 


els  if  CO  .  category  /=  psdl_operator  then  raise  not_an_operator ; 
end  if; 
bind  (  s  , 
t 

CO  .  str  ) ; 

end  add_stream; 

procedure  removers t ream  {  s  :  in  psdl_id  ; 

CO  :  in  out  compos ite_opera tor  )  is 
begin 

if  CO  =  null_component 

then  raise  undef ined_component; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not_an_operator ; 
end  if; 

remove  (  s  , 

CO  .  str  ) ; 

end  removers tr earn; 

procedure  add_timer  (  t  :  in  psdl_id  ; 

CO  :  in  out  compos ite_opera tor  )  is 
begin 

if  CO  =  null_component 

then  raise  undef ined__component  ; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not_an__operator ; 
end  if; 
add  (  t 

CO  .  tim  ) ; 

end  add_timer; 

procedure  set_graph  {  g  :  in  psdl_graph  ; 

CO  :  in  out  compos ite_opera tor  )  is 
begin 

if  CO  =  null_component 
then  raise  undef ined_component; 
end  if; 

CO  .  g  :=  g  ; 
end  set_graph; 

procedure  set_trigger_type  (  o  ;  in  op_id  ; 
t  :  in  trigger_type  ; 

CO  :  in  out  composite_operator  )  is  t_record  :  trigger  ; 
begin 

if  CO  =  null_component 

then  raise  undefined_component ; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not_an_operator ; 
end  i f ; 

t_record  .  tt  :=  t  ; 
t_record  .  streams  :=  empty  ; 
bind  (  o  , 
t_record  , 

CO  .  trig  ) ; 

end  set_trigger_type; 
procedure  set_trigger  (  o  :  in  op_id  ; 
t  :  in  trigger  ; 

CO  :  in  out  compos ite_opera tor  )  is 
begin 

if  CO  =  null_component 

then  raise  undef ined_component; 
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elsif  CO  .  category  /=  psdl_operator  then  raise  not_an_operator ; 
end  if; 
bind  (  o  , 
t 

CO  .  trig  ) ; 

end  set_trigger; 

procedure  set_execution_guard  (  o  :  in  op_id  ; 
e  :  in  expression  ; 

CO  :  in  out  compos it e_operator  )  is 
begin 

if  CO  =  null_component 

then  raise  undef ined_component ; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not_an_operator ; 
end  if; 
bind  (  o  , 
e 

CO  .  eg  )  ; 

end  set_execution_guard; 
procedure  set_output_guard  (  o  :  in  op__id  ; 
stream  ;  in  psdl_id  ; 
e  :  in  expression  ; 

CO  ;  in  out  compos ite_opera tor  )  is  temp__id  :  output_id  ; 
begin 

if  CO  =  null_component 

then  raise  undef ined_component ; 

elsif  CO  .  category  /-  psdl_operator  then  raise  not_an_operator ; 
end  if; 

temp_id  .  op  :=  o  ; 
temp_.id  .  stream  :=  stream  ; 
bind  (  temp_id  , 
e 

CO  .  og  )  ; 

end  set_output_guard; 

procedure  set_exception_t rigger  (  o  :  in  op_id  ; 
excep  :  in  psdl_id  ; 
e  :  in  expression  ; 

CO  :  in  out  compos it e_opera tor  )  is  temp_id  :  excep_id  ; 
begin 

if  CO  =  null_component 

then  raise  undefined_component ; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not_an_operator ; 
end  if; 

temp_id  .  op  :=  o  ; 
temp_id  .  excep  :=  excep  ; 
bind  {  temp_id  , 
e 

CO  .  et  )  ; 

end  set_exception_trigger ; 
procedure  add_timer_op  (  o  :  op_id  ; 
timer_id  :  in  psdl_id  ; 
top  :  in  timer_op_id  ; 
e  :  in  expression  ; 

CO  :  in  out  compos ite_opera tor  )  is  temp_id  timer__op  ; 
tempos  et  :  timer_op_set  ; 

begin 
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if  CO  =  null_component 

then  raise  undef ined__component ; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not__an_operator ; 
end  if; 

temp^id  .  op_id  :=  top  ; 
teinp_id  .  timer_id  :=^  timer_id  ; 
teinp__id  .  guard  :=  e  ; 
teinp_set  :  =  fetch  (  co  .  tim_op  , 
o  )  ; 

add  (  teinp__id  , 
tempos et  )  ; 

bind  (  o  , 
tempos et  , 

CO  .  tim_op  ) ; 

end  add_timer_op; 

procedure  set_period  {  o  :  in  op_id  ; 
p  :  in  millisec  ; 

CO  :  in  out  compos ite_opera tor  )  is 
begin 

if  CO  =  null_component 

then  raise  undefined_component ; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not_an_operator ; 
elsif  (  fetch  (  co  .  per  , 

o  )  )  /=  undefined,. time  then  raise  period_redef ined; 

end  if; 
bind  (  o  , 

P 

CO  .  per  )  ; 

end  set_period; 

procedure  set_f ini sh_wi thin  (  o  :  in  op_id  ; 
fw  :  in  millisec  ; 

co  :  in  out  compos ite_opera tor  )  is 
begin 

if  CO  =  null_component 

then  raise  undef ined_component; 

elsif  co  .  category  /=  psdl_operator  then  raise  not_an_operator; 
elsif  (  fetch  (  co  .  fw  , 

o  )  )  /=  unde fined_ time  then  raise*  f ini sh_within_rede fined; 

end  if; 
bind  (  o  , 
fw 

co  .  fw  )  ; 

end  set_finish_within; 

procedure  set_minimum_calling_period  (  o  :  in  op_id  ; 
mcp  :  in  millisec  ; 

CO  :  in  out  compos ite_opera tor  )  is 
begin 

if  CO  =  null_component 

then  raise  undef ined_component  ; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not_an_operator; 

elsif  (  fetch  (  co  .  mcp  , 
o  )  )  /=  undef  ined_time  then  raise 

minimum_calling_period_redef  ined; 
end  if; 
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bind  (  o 


mcp  , 

CO  .  mcp  )  ; 

end  set_minimnm__calling_period; 
procedure  set_maximum_response_time  (  o  :  in  op_id  ; 
mrt  :  in  millisec  ; 

CO  :  in  out  compos ite_operator  )  is 
begin 

if  CO  =  null_component 

then  raise  undef ined_component  ; 

elsif  CO  .  category  /=  psdl_operator  then  raise  not_an_operator ; 

elsif  (  fetch  (  co  .  mrt  , 
o  )  )  /=  undefined_time  then  raise 

maximum_respons  e_time_rede  fined; 
end  if; 
bind  (  o  , 
mrt  , 

CO  .  mrt  )  ; 

end  s  e  t_maximum__r e  spons  e_t  ime  ; 

function  model  (  t  :  data„type  )  return  type_declaration  is 
result  :  type_declaration  ; 

begin 

if  t  =  null_component 
then  raise  undef ined_component ; 
end  if; 

case  t  .  category  is  when  psdl_operator  =>  raise  not_a_type; 
when  psdl_type  =>  assign  (  result  , 
t  .  mdl  )  ; 

return  result  ; 
end  case; 
end  model; 

function  operations  (  t  :  data_type  )  return  operation_map  is 
result  :  operation_map  ; 

begin 

if  t  =  null_component 
then  raise  undef ined_component  ; 
end  if; 

case  t  .  category  is  when  psdl_operator  =>  raise  not_a_type; 
when  psdl_type  =>  assign  (  result  , 
t  .  ops  )  ; 

return  result  ; 
end  case; 
end  operations; 

function  data_structure  (  t  :  compos  it  e_type  )  return  type_name  is 

result  :  type_name  ; 

begin 

if  t  =  null_component 
then  raise  undef ined_component  ; 
end  if; 

case  t  .  category  is  when  psdl_operator  =>  raise  not_a_type; 
when  psdl_type  =>  case  t  .  granularity  is  when  atomic  => 
raise  no_data_structure; 

when  composite  =>  result  :=  new  type_narae_record  ; 
result  .  name  :=  t  .  data_str  .  name  ; 
assign  {  result  .  formals  , 
t  .  data_str  .  formals  )  ; 
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assign  {  result  .  gen_par  , 
t  .  data_str  .  gen_par  ) ; 
return  result  ; 
end  case; 
end  case; 

end  data_structure; 

function  make_composite_type  {  name  :  psdl_id  ; 
model  :  type_declaration  ; 
data_structure  :  type_name  ; 
operations  :  operation_map  ; 

gen_par  :  type_declaration  :=  empty_type_declaration  ; 
keywords  :  psdl_id__set  :=  empty  ; 
informa l_de script ion  , 
axioms  :  text  :=  empty  ; 

requirements  :  psdl_id__sequence  :=  empty  )  return  compos ite„ type  is  x 
:  compos i te_type  ; 

begin  x  :=  new  psdl_component_record  {  category  =>  psdl_type  , 
granularity  =>  composite  )  ; 

X  .  name  :=  name  ; 

X  .  genj>ar  :=  gen_par  ; 

X  .  keyw  :=  keywords  ; 

X  .  inf__desc  :=  informal_description  ; 

X  .  reqm  :=  requirements  ; 

X  .  ax  :=  axioms  ; 

X  .  mdl  :=  model  ; 

X  .  ops  :=  operations  ; 

X  .  data__str  ;=  data_structure  ; 
return  x  ; 

end  make_composite_type; 

procedure  recycle  (  c  :  in  out  psdl_component  )  is 
begin 

if  c  /=  null_component 
then  recycle  (  c  .  gen _jpar  )  ; 

recycle  (  c  .  keyw  ) ; 

case  c  .  category  is  when  psdl_operator  =>  recycle  (  c  .  input 

)  ; 

recycle  (  c  .  output  ) ; 
recycle  {  c  .  state  ) ; 
recycle  (  c  .  init  ) ; 
recycle  (  c  .  excep  ) ; 

case  c  .  granularity  is  when  atomic  =>  null; 
when  composite  =>  recycle  (  c  .  g  ) ; 
recycle  (  c  .  str  )  ; 
recycle  (  c  .  tim  ) ; 

recycle  {  c  .  trig  )  ; 

recycle  (  c  .  eg  ) ; 

recycle  (  c  .  og  ) ; 

recycle  (  c  .  et  ) ; 

recycle  (  c  .  tim_op  )  ; 
recycle  (  c  .  per  ) ; 
recycle  (  c  .  fw  ) ; 
recycle  (  c  .  mcp  ) ; 

recycle  (  c  .  mrt  ) ; 

end  case; 

when  psdl_type  =>  recycle  (  c  .  mdl  ) ; 
recycle  (  c  .  ops  ) ; 

case  c  .  granularity  is  when  atomic  =>  null; 
when  composite  =>  recycle  (  c  .  data_str  .  gen_par  ) ; 
end  case; 
end  case; 
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c  :=  null_coinponent  ; 

end  if; 
end  recycle; 
end  psdl_component_pkg; 
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APPENDIX  H.  AYACC  SOURCE  CODE  LISTING 


—  $Header : 

/export/home/berzins/CAPS/build/R2 . l/PSDL_TyPE/RCS/parser .y, v  1 . 7 
1996/08/29  23:49:02  berzins  Exp  berzins  $ 


—  This  file  is  the  ayacc  source  file  for  PSDL  parser. 


—  token  declarations  section 

%token  ' ( '  ' ) '  ' , '  ' [ '  ' ] '  '  : '  '  -  '  '  |  ' 

% token  ARROW 

%token  TRUE  FALSE 

% token  ADA_TOKEN  AX10MS_T0KEN 

% token  BY_ALL_TOKEN  REQ_BY_TOKEN  BY_SOME_TOKEN 
% token  CALL_PERIOD_TOKEN  CONTROL_TOKEN 
% token  CONSTRAINTS_TOKEN 
% token  DATA_TOKEN  DESCRIPTION_TOKEN 
%token  EDGE_TOKEN  END_TOKEN  EXCEPTIONS_TOKEN 
%token  EXCEPT10N_T0KEN  EXECUTION_TOKEN 
% token  FINISH_TOKEN 
% token  GENERIC_TOKEN  GRAPH_TOKEN 
% token  HOURS_TOKEN 

%token  IF_TOKEN  IMPLEMENTATION_TOKEN 
% token  INITIALLY_TOKEN  INPUT_TOKEN 
% token  KEYWORDS_TOKEN 
% token  MAXIMUM_TOKEN  MINIMUM_TOKEN 
% token  MICROSEC_TOKEN 
% token  MIN_TOKEN  MS_TOKEN  MOD_TOKEN 
% token  NOT_TOKEN 

% token  OPERATOR_TOKEN  OR_TOKEN  OUTPUT_TOKEN 
% token  PERIOD_TOKEN  PROPERTY_TOKEN 
%token  RESET_TOKEN  RESPONSE_TOKEN 
%token  SEC_TOKEN  SPECIFICATION_TOKEN 
% token  START_TOKEN  STATES_TOKEN  STOP_TOKEN 
% token  STREAM_TOKEN 
% token  TIME_TOKEN 

%token  TIMER_TOKEN  TRIGGERED_TOKEN  TYPE_TOKEN 
% token  VERTEX_TOKEN 
% token  WITHIN_TOKEN 
%token  IDENTIFIER 

%token  INTEGER_LITERAL  REAL_LITERAL 
% token  STRING_LITERAL 
% token  TEXT_TOKEN 

—  operator  precedences 

—  left  means  group  and  evaluate  from  the  left 
%left  AND_T0KEN  OR_TOKEN  XOR_TOKEN  LOGICAL_OPERATOR 

%left  '<’  ’>'  '='  GREATER_THAN_OR_EQUAL  LESS_THAN_OR_EQUAL  INEQUALITY 
RELATIONAL_OPERATOR 

%left  '+'  BINARY_ADDING_OPERATOR 

%left  UNARY_ADDING_OPERATOR 

%left  '*'  '/'  MOD_TOKEN  REM_TOKEN  MULTI PLYING_OPERATOR 

%left  EXP_TOKEN  ABS_TOKEN  NOT_TOKEN  HIGHEST_PRECEDENCE_OPERATOR 
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%start  start_symbol  —  this  is  an  artificial  start  symbol,  for 
initialization 


%with  psdl_concrete_type_pkg,  expression_pkg; 

%use  psdl_concrete_type_pkg,  express ion_pkg; 

—  declaration  of  the  value  type  for  the  parser  stack. 

{ 

type  token_category_type  is  (integer_cat , 

text_cat , 
psdl_id_cat, 
psdl_id_sequence_cat , 
op_id_cat, 
operator_name_cat , 
opt_arg_cat , 
type_name_cat , 
type_decl__cat , 

timer_op_id_cat , 
expression_cat , 
express ion_seq_cat, 
property_map_cat , 
no_value_cat ) ; 

type  yystype  ( token_category :  token_category_type  ;=  no_value_cat ) 
is 

record 

case  token_category  is 

—  lexical  token  attributes: 
when  integer_cat  => 

integer_value ;  integer ; 
when  text_cat  => 
text_value :  text ; 

—  grammar  psdl^id  attributes : 
when  psdl_id_cat  => 

psdl__i devalue :  psdl_id; 
when  psdl_id_sequence_cat  => 

pr-^l^id^sequence^value :  psdl_id_sequence; 
whei.;  op_id_cat  => 
op_i d__va  1  ue :  op_i d ; 
when  opera tor_name_c at  => 

type_name j>art ,  op_name_part :  psdl_id; 
when  opt_arg__cat  => 

input_value ,  output_value :  psdl_id__sequence  ; 
when  type_name_cat  => 

type_name_value :  type_name  ; 
when  type_decl_cat  => 

type_decl_value :  type_declaration; 
when  timer_op_id_cat  => 

timer_op_id_value :  timer_op_id; 
when  expression__cat  => 

expression_value :  expression; 
when  expression_seq_cat  => 

express ion_secL_value :  expression_sequence; 
when  property_map__cat  => 

property_map_value :  ini t_map ; 
when  no_value__cat  =>  null; 
end  case; 
end  record; 

} 
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%% 


start^symbol 

:  {  the_program  :=  einpty_psdl_prograin;  } 

psdl 


psdl  :  psdl  component 

{  if  member  (name  (the_component)  ,  the_program) 
then  yyerror  ( "Component  redefined:  "  & 
convert  (name  ( the_component )  )  )  ; 

else  bind  (name  (the^component)  ,  the_component , 

the__program)  ; 

end  if;  } 


component 

:  data_type 
I  operator 


data_type 

:  TYPE_TOKEN  IDENTIFIER 

{  the_operation_map  :=  empty_operation_map; 
is_specif ication  :=  true;  } 
type_spec 

{  is_specif ication  :=  false;  } 
type_impl 

{  —  Construct  the  psdl  type  using  global  variables. 
build_psdl_type  ($2  .psdl_id_value, 
the_ada_name , 
the_model , 
the_data_s tructure , 
the_operation_map , 
the_type_gen_par , 
the__keywords , 
the_description, 
the_axioms , 
i  s_atomic_type , 
the_component , 
the_reqmts__trace)  ; 
output_trace ( the_component ) ; 

} 


tiTPe^spec 


SPECIFICATION_TOKEN  optional_generic _j>aram  optional_type_decl 
op_spec_list  functionality  END__TOKEN 


optional_generic  _param 
:  GENERIC_TOKEN 

{  the_type_decl  :  = 
1  i  s  t_o  f  _type_dec  1 
{  the_type_gen__par 
1  {  the_type_gen _par 


optional_type_decl 


empty_type_declarat ion ;  } 

:  =  the_type_decl ;  } 

:=  empty_type_declaration;  } 
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{  the_type_decl  :=  empty_type_declaration;  } 
1  i  s  t_o  f  _type_dec  1 

{  the_model  :=  the_type_decl ;  } 

{  the_model  :=  empty_type_declaration;  } 


op_spec_list 

:  op_spec_list  OPERATOR_TOKEN  IDENTIFIER  operator_spec 
{  build_psdl_operator ($3 .psdl_id_value, 

ada_id($3 .psdl_id_value) , 

the_gen_par , 

the_keywords , 

the_descr ipt ion , 

the^axioms / 

the_input , 

the_output / 

the_state, 

the_ini  t  ial^expres  s  ion_inap , 

the_exceptions , 

the_specif ied_met , 

empty _psdl_graph, 

emp ty_type_dec lar a t ion , 

empty, 

emp  ty_t  r i gger_map , 
empty_exec_guard_map , 
emp  ty__out_guard_map , 
empty_excep_trigger_map , 
empty_timer_op_map , 
emp  ty_t  iming_map , 
empty_timing_map , 
emp  ty_ t iming_map , 
emp  ty__t  iming_map , 
empty, 

the_spec_reqmts__trace , 
is_atomic  =>  true, 
the_opr  =>  the_operator ) ; 

bind_operation  ($3 .psdl_id_value, 
the_operator , 
the_operation_map) ; 

the_spec_reqmts_trace  :=  requirements  {the_opera tor)  ; 

the_spec_reqmts_trace  :=  empty;  } 


operator 

:  OPERATOR_TOKEN  IDENTIFIER 

{  is_specif ication  :=  true;  } 
operator_spec 

{  is_specification  ;=  false;  } 
operator_impl 

{  --  construct  the  psdl  operator  using  the  global  variables 
build_psdl_operator  ($2  .psdl__i devalue, 

the_ada_name , 
the__gen_^ar , 
the_keywords , 
the_description, 
the__axioms, 
the_input , 
the_output , 
the_state. 
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the_ini  t  ial_expres  s  ion_map , 
the_exceptions , 
the_specified_met , 
the_gr aph , 
the_str earns, 
the^timers , 
the_tr igger_map , 
the_exec_guard , 
the_du t_guard , 
the__excep„tr  igger , 
the_tinier_op , 
the  _per, 
the_fw, 
the_mcp , 
the_inr  t , 
the_impl_desc , 
the_reqnits_trace , 
is_atomic_operator , 
the^component)  ; 
output_trace ( the^component) ; 

} 


operator_spec 

:  SPECIFICATION_TOKEN 

{  —  Initialize  the  variables  used  to  build  an  operator 

spec . 

the_gen_par  :=  empty_type_declaration; 
the_input  :  =  empty_type_declaration ; 
the_output  :=  einpty_type_declaration; 
the_state  :=  empty_type_declaration; 
expression_sequence_pkg .  empty  { the_init_exp_seq)  ; 
the_ini  t  i  al_expr e  s  s  i  on_map  :  =  emp ty_ini  t_map  ; 
the_exceptions  :=  empty; 

the_specif ied_met  :=  undefined_time;  } 
interface 

{  bind_initial_state  ( the_state,  the_init_exp_seg/ 

the_initial_expression_map)  ;  } 

functionality  END^TOKEN 


interface 

:  interface  attribute  regmts_trace 


attribute 

:  GENERIC_TOKEN 

{  the_type_decl  :=  the_gen_par;  } 
1  i  s  t_o  f  _type_dec  1 

{  the_gen_par  :=  the__type_decl;  } 
I  INPUT^TOKEN 

{  the_type_decl  :=  the_input;  } 

1  i  s  t_o  f  _type_de  c  1 

{  the_input  :=  the_type_decl;  } 

I  OUTPUT_TOKEN 

{  the_type_decl  :=  the_output;  } 

1 i s  t _o  f _ typ e_de c 1 

{  the_output  :=  the_type__decl ;  } 

I  STATES_TOKEN 
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{  the_states_token_line  :=  current_line ;  —  For  error 

messages . 

the_states_token  :=  convert (yy text ) ;  —  For  error 

messages . 

the_type_decl  :=  the_state;  } 

1  i  s  t_o  f  _type_dec  1 

{  the_state  :=  the_type_decl;  } 

INITIALLY_TOKEN  initial_expression_list 

{  express ion_sequence_pkg . append ( the_init_exp_seq, 

$6 .expression_seq_value, 
the_init_exp_seq)  ;  } 

I  EXCEPTIONS_TOKEN  id^list 

{  psdl_id_set_pkg . union ( the_exceptions , 

to_set ($2 .psdl_id_sequence_value) , 
the_exceptions  ) ;  } 

I  MAXIMUM_TOKEN  EXECUTION^TOKEN  TIME^TOKEN  time 
{  the_specified_met  :=  $4 , integer_value;  } 

--  Time  is  converted  into  millisec  . 


--  Initialization  of  the_type_decl  is  done  by  the  callers  of  this 
rule. 

1  i  s  t_o  f  _type_de  c  1 

:  list_of_type_decl  ' ,  '  type_decl 

{$$:=(  token_category  =>  psdl_id_sequence_cat , 
psdl_id_sequence_value  => 

psdl_id__sequence_pkg .  append  { $1  .psdl_id__sequence__value, 

$3  .psdl_id_sequence_value  ) )  ;  } 

I  type_decl 

{  $$  :=  $1;  } 


type_decl 

:  id__list  '  :  '  type_name 
{  $$  :=  $1; 

bind__type_declaration  ( $1  .psdl_id_sequence_value/ 

$3  .  type_name_value , 
the_type_decl) ;  } 


type__name 

:  IDENTIFIER 

{  --  Save  the  previous  value  of  the_type_decl . 

—  Needed  because  the  list_of_type_decl  below 
—  might  contain  nested  type  declarations. 

$$  :=  ( token_category  =>  type_decl_cat , 

type_decl_value  =>  the_type_decl)  ; 
the_type_decl  :=  empty_type_declaration;  } 

' [ '  list_of_type_decl  ' ] ' 

{  the_type_name  :  = 

create (name  =>  $1 .psdl_i devalue, 

formals  =>  $4 .psdl_id_sequence_value, 
gen_par  =>  the_type_decl)  ; 

—  Now  restore  the  previous  value  saved  above. 
the_type_decl  :  =  $2  .  type_decl_value; 

$$  :=  { token_category  =>  type_name_cat , 

type_name_value  =>  the_type__name)  ;  } 

I  IDENTIFIER 

{  the_type_name  :  = 
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create (name  =>  $1 .psdl_id_value, 

formals  =>  psdl_id„sequence_pkg. empty, 
gen_par  =>  empty__type_declaration)  ; 

$$  :=  ( token_category  =>  type_name_cat , 

type_name_value  =>  the_type_name )  ;  } 


id_list 


empty)  ) ; 


id_list  ' , ' 
{$$:=( 


IDENTIFIER 

{$$:=( 


} 


IDENTIFIER 

token_category  =>  psdl_id_sequence_cat , 
psdl__id_sequence_value  => 
add  ($3  .psdl_id_value, 

$1  .psdl_id_sequence_value  )  )  ;  } 

token_category  =>  psdl_id__sequence_cat , 
psdl_id_sequence_value  =>  add { $1 .psdl_i devalue. 


—  We  use  psdl_id_sequence  as  the  data  structure 
—  to  store  the  requirement  ids  to  include  duplicates. 
““  Psdl_id_set  does  not  store  duplicates. 


reqmts_trace 

:  REQ_By_TOKEN  id^list 

{  psdl_id_sequence_pkg .  append  ( the_reqmts_trace , 

$2 .psdl_id_sequence_value, 
the_reqmts_trace)  ; 

psdl_id_sequence__pkg .  append  ( the_spec_reqmts_trace , 

$2 .psdl_id_sequence_value, 
the_spec_reqmts_trace)  ;  } 


functionality 

:  keywords  informal_desc  forma l_de sc 


keywords 

:  KEYWORDS^TOKEN  id_list 

{  the_keywords  :=  to_set  ($2  .psdl_id_sequence_value)  ;  } 
I  {  the_keywords  :=  empty;  } 

r 

in  f  o  rma  l_de  s  c 

:  DESCRIPTION^TOKEN  TEXT_TOKEN 
{  if  is_specification  then 

the__description  :  =  $2  .  text_value; 
else  the_impl_desc  :=  $2  .  text__value; 
end  if;  } 

{  if  is_specif ication  then 

the_description  :=  empty; 
else  the_impl__desc  :=  empty; 
end  if;  } 


formal^desc 

:  axioms_TOKEN  TEXT^TOKEN 

{  the__axioms  :  =  $2  .  text_value;  } 
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{  the^axioms : =  empty;  ) 


type_impl 

:  IMPLEMENTATION_TOKEN  ADA_TOKEN  IDENTIFIER  END_TOKEN 
{  is_atomic_type  :=  true; 

the_ada_name  :=  ada_id($3  .psdl_id__value)  ;  } 

I  IMPLEMENTATION_TOKEN  type_name  op_impl_list  END_TOKEN 
{  is__atomic_type  :=  false; 

the_data_structure  :=  $2 . type_name_value;  } 


op_imp  1_1  i  s  t 

:  op_impl_list  OPERATOR__TOKEN  IDENTIFIER  operator__impl 
{  —  add  implementation  part  to  the  operator  in  the 
operation  map 

add_op_impl_to__op_map  ( $3  . psdl_id__value , 

the_ada_name , 

is_atomic_operator , 

the__operation_map , 

the_graph, 

the_st  reams , 

the_timers, 

the_tr igger_map , 

the_exec_guard , 

the_ou t_guard , 

the_excep_t rigger , 

the_timer_op , 

the  j>er , 

the_fw, 

the_mcp , 

the_mrt , 

the_impl_desc  )  ;  } 


operator_impl 

:  IMPLEMENTATION.TOKEN  ADA_TOKEN  IDENTIFIER  END^TOKEN 
{  is_atomic_operator  :=  true; 

the_ada_name  :  =  ada_id  { $3  . psdl__i devalue)  ;  } 

I  IMPLEMENTATION_TOKEN  psdl_impl  END_TOKEN 
{  is_atomic_operator  :=  false;  } 


psdl_impl 

:  data_flow_diagram  streams  timers  control_constraints 
informal_desc 


data_f low_diagram 

:  {  the_graph  ;=  empty_psdl_graph;  } 
GRAPH_TOKEN  vertex_list  edge_list 


--  Time  is  the  maximum  execution  time. 

vertex_list 

:  vertex_list  VERTEX_TOKEN  op_id  optional_time  graph_properties 
{  the_graph  :  =  psdl_graph_pkg .  add_ver tex  ( $  3  .  op_i devalue , 

the_gr aph , 

$4 .  integer__value. 
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$  5 .  property_map__value )  ;  } 


—  Time  is  the  latency. 

edge_list 

:  edge_list  EDGE_TOKEN  IDENTIFIER 

optional_time  op_id  ARROW  op__id  graph_properties 

{  the_graph  : =  psdl_graph_pkg . add_edge ( $5 . op_id_value , 

$7 . op_id_value , 

$3  .psdl__id_value, 
the_graph, 

$4 . integer_value , 

$  8 . property_map_value ) ;  } 


gr  aph__pr  oper  t  i  e  s 

:  graph_properties  PROPERTY_TOKEN  IDENTIFIER  expression 

{  bind ($3 .psdl_id_value,  $5 . express ion_value, 

$  1 .  proper  ty__map__value )  ; 

$$  :=  (  token_category  =>  proper ty_map_ca t , 

proper ty__map__value  =>  $1  .proper ty__map__value  );  } 

I 

{  $$  ;=  (  token_category  =>  proper ty_map_ca t , 

property_map_value  =>  empty_init__map  )  ;  } 


op_id 

:  operator_name  opt_arg 

{  $$  :=  (  token_category  =>  op_id_cat, 
op_id_value  => 

(  type_name  =>  $1 .  type_name_part, 
operation_name  =>  $1 .  op_name_part , 
inputs  =>  $2 . input_value, 
outputs  =>  $2 .output_value  ));  } 


operator_name 

:  IDENTIFIER  ' , '  IDENTIFIER 

{  $$  :=  (  token_category  =>  operator_name_cat , 
type_name_part  =>  $1 .psdl_i devalue, 
op_name_part  =>  $3 .psdl_id_value  ) ;  } 

I  IDENTIFIER 

{$$:=(  token_category  =>  opera tor_name__cat, 
type_name_part  =>  empty, 
op_name_part  =>  $1  .psdl__i devalue  );  } 


opt_arg 

:  '  { '  optional_id_list  '  |  '  optional_id__list  ' )  ' 

{  $$  :=  (  token_category  =>  opt_arg_cat, 

input_value  =>  $2 .psdl_id_sequence_value, 
output_value  =>  $4  .psdl__id_sequence_value  );  } 
I  {$$;=(  token_category  =>  opt_arg_cat, 
input__value  =>  empty, 
output__value  =>  empty  )  ;  } 


op  t i ona l_i d_l i s  t 

:  id^list  {  $$  :=  $1;  } 

I  {$$:={  token_category  =>  psdl_id_seguence_cat , 
psdl_id_sequence_value  =>  empty  ) ;  } 


op  t  i  ona  l_t  ime 

.  '  :  ' 
{ 

I  { 


streams 

:  DATA_TOKEN  STREAM_TOKEN 

{  the_type_decl  :=  empty_type_declaration;  } 
1  i  s  t_o  f  _type__dec  1 

{  the_streams  :=  the_type_decl;  } 

I 

{  the_streams  :=  empty_type_declaration;  } 


time 

$$  :=  ( token_category  =>  integer_cat, 

integer_value  =>  $2 . integer_value) ;  } 
$$:=  ( token_category  =>  integer_cat, 

integer_value  =>  unde fined_t ime) ;  } 


--  The  order  of  id's  is  not  important,  so 
—  we  use  psdl_id_set  as  the  data  structure 
--  to  store  the  timers. 


timers 

:  TIMER_TOKEN  id_list 

{  the_timers  :=  to_set  ( $2  .psdl_id_sequence_value)  ;  } 
I  {  the_timers  :=  empty;  } 


control_constraints 

:  CONTROL^TOKEN  CONSTRAINTS_TOKEN 

{  the_trigger_map  :=  empty_trigger_map ; 
the j)er  : =  emp ty_t iming_map ; 
the_fw  :=  empty_timing_map; 
the_mcp  :=  empty_timing__map; 
the_mrt  :=  empty__timing_map; 
the_exec_guard  :  =  empty_exec_guard_map ; 
t he_ou t_guar d  :  =  emp  ty_ou  t_guar d_map  ; 
the_excep_tr igger  :  =  empty_excep_trigger_map  ; 
the_timer_op  :=  empty_timer_op_map;  } 
constraints 


constraints 

:  constraints  OPERATOR_TOKEN  op_id 

{  the_operator_id  : =  $3 . op_id_value ; 

the_timer_op_set  :  =  timer_op_set_pkg .  empty;  } 
opt_trigger  opt_period  opt_f ini sh_wi thin 
opt_mcp  opt_mrt  cons traint_opt ions 
1  OPERATOR_TOKEN  op_id 

{  the_operator_id  :=  $2.op_id_value; 

the_timer_op_set  :=  timer_op_set_pkg. empty;  } 
opt__trigger  opt_period  opt_f inish_within 
opt_mcp  opt_mrt  cons traint_opt ions 
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cons  traint__opt  ions 

:  constraint_options  OUTPUT_TOKEN 

id_list  IF_TOKEN  expression  reqmts_trace 
{  the_output_id .op  : =  the_opera torpid ; 
for  id:  psdl_id  in 

psdl_id_sequence_pkg.  scan($3  .psdl_id_sequence_value) 

loop 

the_output_id. stream  :=  id; 

bind  { the__output_id,  $6  .  express ion_value , 

the_out_guard)  ; 

end  loop ;  } 

I  constraint^options  EXCEPT I ON^TOKEN  IDENTIFIER 
opt_if_predicate  reqmts_trace 

{  the_excep_id .op  : =  the_operator_id; 
the_excep_id . excep  : =  $3 . psdl_i devalue ; 
bind(the_excep_id,  $4 .express ion__value, 
the_excep_trigger) ;  } 

I  cons traint_opt ions  timer__op  IDENTIFIER 
opt_if_predicate  reqmts__trace 

{  the_timer_op_record .  op_id  :  =  $2  ,  timer__op_id_value ; 
the_timer__op_record .  timer_id  :  =  $3  .  psdl__id_value ; 
the_timer_op_record .  guard  :  =  $5  .  express ion__value ; 
t imer_op_se t_pkg .  add  ( the_t imer_op_record , 

the_timer__op_set)  ; 

bind  (the_operator_id,  the_timer_op_set ,  the_timer_op)  ;  } 


op t_t rigger 

:  TRIGGERED_TOKEN  trigger  opt_if_predicate  reqmts_trace 

{  bind{the_operator_id,  $3 . express ion_value,  the_exec_guard) 

} 


trigger 

:  BY_ALL_TOKEN  id_list 

{  the_trigger . tt  :=  by_all; 

the_trigger .  streams  :  =  to_set  { $2  .  psdl_id_sequence_value ) 
bind  ( the_operator_id ,  the_trigger ,  the_tr igger_map )  ;  } 

1  BY_SOME_TOKEN  id^list 

{  the_trigger. tt  :=  by_some; 

the_trigger .  streams  :  =  to_set  { $2  . psdl_id_sequence_jvalue ) 
bind (the_opera torpid,  the_trigger,  the_trigger_map)  ;  } 

I  {  the_trigger . tt  :=  by_none; 

the_trigger.  streams  :=  empty; 

bind (the_opera torpid,  the_trigger,  the__trigger_map)  ;  } 


opt_period 

:  PERIOD_TOKEN  time  reqmts__trace 

{  bind{the_operator_id,  $2 .  intege,r_value,  the_per)  ;  } 


opt_finish_within 

:  FINISH__TOKEN  WITHIN_TOKEN  time  reqmts_trace 

{  bind{the_operator_id,  $3 .  integer_value,  the_fw)  ;  } 
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opt_mcp 


:  MINIMUM_TOKEN  CALL_PERIOD_TOKEN  time  reqmts_trace 

{  bind(the__operator_id,  $3 .  integer__value,  the_mcp)  ;  } 


opt„mrt 

;  max_resp_time  time  reqmts_trace 

{  bind(the_operator_id,  $2 . in tege revalue,  the_mrt) ;  } 


max_r  e  sp_t  ime 

:  MAXIMUM^TOKEN  RES  PONS E_TOKEN  TIME^TOKEN 


timer__op 


RESET_TOKEN 

{  $$  :=  (token_category  => 
t  ime  r_op_i  d_va  lu  e 

START^TOKEN 

{  $$  :=  { token_category  => 
time  r__op__i  d_va  1  ue 

stop_token 

{  $$  :=  ( token_category  => 
timer_op_i devalue 


timer_op_id_cat , 
=>  t_reset) ;  } 

timer_op_id_cat , 
=>  t_start) ;  } 

t  ime  r_op_i  d_c  a  t , 
=>  t_stop) ;  } 


opt_i f  _predicate 

:  I F_TOKEN  express i on 

{  $$  ;=  ( token_category  =>  expression_cat , 

express ion_value  =>  $2 . express ion_value) ;  } 
I  {  $$  :=  ( token_category  =>  expression_cat , 

expression_value  =>  true_expression) ;  } 


—  The  expression  sequence 

—  is  used  by  procedure  bind_initial_state  together  with 

—  the  states  map  to  construct  the  init_map. 


ini t i a l_expr e  s  s i on_l i s  t 

:  initial_expression_list  ' , '  initial_expression 
{  $$  :=  (token_category  =>  expression_seq_cat , 
expression_seq__value  => 

express ion_sequence_pkg . add  ( $3  .  express ion_value , 

$1 . express ion_seq_value  ));  } 

I  initial_expression 

{  $$  ;=  { token_category  =>  expression_seq_cat , 
express  ion__seq_value  => 

express  ion_sequence_pkg .  add  ( $1 .  expression_value , 

empty__exp_seq  )  )  ;  } 
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—  There  is  one  and  only  one  initial  state (initial  expression) 
--  for  each  state  variable.  This  production  returns  one 

—  expression  to  the  parent  rule  corresponding  to  one  state. 
This  is  done  by  using  the  internal  stack  ($$  convention) . 


initial_expression 
:  TRUE 


KJLlj 

{  $$  :=  (token_category  =>  expression_cat , 

express ion_value  =>  true_expression) ;  } 

I  FALSE 

{  $$  :=  ( token_category  =>  expression_cat , 

express ion_value  =>  false_expression) ;  } 

I  INTEGER_LITERAL 

{  $$  :=  {token_category  =>  expression_cat , 
express ion_value  => 

create_integer_literal { $1 . integer_value) ) ;  } 

I  REAL^LITERAL 

{  $$  ;=  ( token_category  =>  expression_cat , 
express ion_value  => 

create_real_literal ($1 . text_value) ) ;  } 

I  STRING^LITERAL 

{  $$  :=  (token_category  =>  expression_cat , 
express ion_value  => 

create_string_literal{$l.text_value) ) ;  } 

1  IDENTIFIER 

{  $$  :=  ( token_category  =>  expression_cat , 
expression__value  => 

create_identif ier ($1 .psdl_i devalue) ) ;  } 

I  type_naine  '  .  '  IDENTIFIER 

{  $$  :=  ( token_category  =>  express ion_cat, 
express ion_value  => 

create_function_call  ($1 .  type_naine_value , 

psdl_id($3  .psdl_i devalue)  , 
empty_exp_seq) ) ;  } 

I  type„name  ' . '  IDENTIFIER  ' { '  initial_expression_list  ' ) ' 

{  $$  :=  ( token_category  =>  expression_cat , 
express  ion__value  => 

create__function_call  ( $1 .  type_name__value , 

psdl_id($3  .psdl_id_value)  , 
$5  .expression_seq_value) )  ; } 

I  ' ( '  initial_expression  ' ) ' 

{  $$  :=  ( token_category  =>  expression_cat , 

expression_value  =>  $2  .  express ion__value)  ; 

} 

I  initial_expression  log_op  initial_expression  %prec 
logical_operator 

{  $$  :=  (token_category  =>  express ion_cat, 
expression_value  => 

create_binary_op  ( $1 .  express ion_value , 

$2  .psdl_id__value, 

$3 .expression_value) ) ; 

} 

I  initial_expression  rel_op  initial_expression  %prec 
relational_operator 

{  $$  :=  ( token_category  =>  expression_cat , 
expression_value  => 

create_binary_op  ( $1 . express ion_value , 

$2 .psdl_id_value, 

$3 .expression_value) )  ; 
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I  initial_expression  %prec 

unary_adding_operator 

{  $$  :=  ( token_category  =>  expression_cat , 
expression_value  => 

create_unary_op (convert ( " - " )  , 

$2 . express ion_value 

I  initial_expression  %prec 

unary_adding_operator 

{  $$  :=  ( token_category  =>  expression_cat , 
express  ion__value  => 

create_unary_op ( convert { " + " ) , 

$2 .expression_value 
(  initial_expression  bin_add_op  initial_expression 
%prec  binary_adding_operator 

{  $$  ;=  ( token_category  =>  expression_cat , 
express ion_value  => 

create_binary_op  ( $1 . expression_value , 
$2 .psdl_i devalue, 

$3 .expression_value) 

I  initial_expression  bin_mul_op  initial_expression 
%prec  inultiplying_operator 

{  $$  :=  ( token_category  =>  expression_cat , 
express  ion__value  => 

create_binary_op  ( $1 . expression_value, 
$2 .psdl_i devalue, 

$3 .expression_value) 

I  initial_expression  EXP_TOKEN  initial_expression 
%prec  highest_precedence_operator 

{  $$  :=  ( token_category  =>  expression_cat , 
express ion_value  -> 

create_binary_op  ( $1 . expression_value , 
convert ("**") , 

$3  .expression__value)  ! 


));  } 


I  NOT_TOKEN  initial_expression  %prec 

highest_precedence_operator 

{  $$  :=  {token_category  =>  expression_cat , 
express ion_value  => 

create_unary__op  (convert  ( "NOT”  )  , 

$2 ,expression_value  ) ) ;  } 
I  ABS_TOKEN  initial_expression  %prec 

highest  _precedence_operator 

{  $$  :=  (token_category  =>  expression_cat , 
expression_value  => 

create_unary_op (convert ( "ABS" ) , 

$2  .expression__value  ));  } 


log_op 

;  AND_TOKEN 

{  $$  :=  ( token_category  =>  psdl_id_cat, 

psdl_id_value  =>  convert ( "AND" )  );  } 

I  OR_TOKEN 

{  $$  :=  ( token_category  =>  psdl_id__cat , 

psdl_id_value  =>  convert ( "OR" )  );  } 

I  XOR^TOKEN 

{  $$  :=  (token_category  =>  psdl_id_cat, 

psdl_id_value  =>  convert ( "XOR" )  );  } 
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rel_op 


{  $$  :=  (token_category  =>  psdl_id_cat, 

psdl_id_value  =>  convert ("<")  );  } 

I  '>' 

{  $$  :=  { token_category  =>  psdl_id_cat, 

psdl_id_value  =>  convert (">")  );  } 

I  '=' 

{  $$  ;=  (token_category  =>  psdl_id_cat, 

psdl__id_value  =>  convert  ("  =  ")  );  } 

I  GREATER_THAN_OR_EQUAL 

{  $$  :=  { token_category  =>  psdl_id_cat, 

psdl_id_value  =>  convert {">=" )  );  } 

1  LESS_THAN_OR_EQUAL 

{  $$  :=  ( token_category  =>  psdl__id_cat, 

psdl_id_value  =>  convert ("<=" )  );  } 

I  INEQUALITY 

{  $$  :=  (token_category  =>  psdl_id_cat, 

psdl_id_value  =>  convert ("/=" )  );  } 


bin_add_op 


{  $$ 


{  $$ 


{  $$ 


( token_category  =>  psdl_id_cat, 
psdl_id_value  =>  convert ("+")  );  } 

( token_category  =>  psdl_id_cat,  ♦ 
psdl_id_value  =>  convert ( " - " )  ) ;  } 

{ token_category  =>  psdl_id_cat, 
psdl_i devalue  =>  convert {"&")  );  } 


bin_mul_op 


{  $$  :=  (token_category  =>  psdl_id_cat, 

psdl_id_value  =>  convert { " * " )  ) ;  } 

{  $$  :=  ( token_category  =>  psdl_id_cat, 

psdl_id_value  =>  convert ( " / ” )  ) ;  } 

MOD_TOKEN 

{  $$  :=  ( token_category  =>  psdl_id_cat, 

psdl_id_value  =>  convert ( "MOD" )  ); 

REM__TOKEN 

{  $$  :=  ( token_category  =>  psdl_id_cat, 

psdl_id_value  =>  convert ( "REM" )  ); 


} 

} 


time 


time__nTamber  MICROSEC_TOKEN 

{  $$  :=  ( token_category  =>  integer_cat, 

integer_value  =>  ($1 . integer_value  +  999)/1000);  } 
time_n\imber  MS_TOKEN 

{  $$  :=  (token_category  =>  integer_cat, 

integer_value  =>  $1 . integer_value) ;  } 
time_n\imber  SEC_TOKEN 

{  $$  :=  ( token_category  =>  integer_cat, 

integer_value  =>  $1 . integer_value  *  1000);  } 
time_niimber  MIN__TOKEN 

{  $$  :=  ( token_category  =>  integer_cat. 
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integer_value  =>  $1 .  integer__value  *  60000);  } 

I  time_nuinber  HOURS_TOKEN 

{  $$  :=  ( token_category  =>  integer_cat, 

integer_value  =>  $1 . integer_value  *  3600000);  } 


time^number 

:  INTEGSR^LITERAL 

{  $$  :=  ( token_category  =>  integer_cat, 

integer_value  =>  $l.integer_value) ;  } 


expression_list  . 

:  express ion_l is t  ' , '  expression 

{  $$  :=  ( token__category  =>  expression„seq_cat , 
expression_seq„value  => 

expression_sequence _pkg.add($3  . expression_value, 

$1 .  expression__seq_value 


));  } 

I  expression 

{  $$  :=  ( token_category  =>  expression_seq_cat , 
expression_seq_value  => 

expression__seguence_pkg .  add  ( $1 .  expression_value , 

empty_exp_seq  ) ) ;  } 


--  Expressions  can  appear  in  guards  appearing  in  control  constraints. 

—  These  guards  can  be  associated  with  triggering  conditions,  or 

—  conditional  outputs,  conditional  exceptions,  or  conditional  timer 
--  operations.  Similar  to  initial  expression,  except  that  tim  e  values 

—  and  references  to  timers  and  data  streams  are  allowed. 


expression 

:  TRUE 

{  $$  :=  ( token_category  =>  expression_cat , 

expression_value  =>  true__expression)  ;  } 

I  FALSE 

{  $$  :=  ( token_category  =>  expression_cat, 

expression__value  =>  false_expression)  ;  } 

I  INTEGER^LITERAL 

{  $$  :=  ( token_category  =>  expression_cat , 
express ion_value  => 

create_integer_literal { $1 . integer_value) ) ;  } 
I  REAL_LITERAL 

{  $$  :=  (token_category  =>  expression_cat , 
express ion_value  => 

create_real_literal ($1 . text_value) ) ;  } 

I  STRING_LITERAL 

{  $$  :=  (token_category  =>  expression_cat , 
express ion_value  => 

create_string_literal  ( $1 .  text_value)  )  ;  } 

I  IDENTIFIER 

{  $$  :=  (token_category  =>  expression_cat , 
expression_value  => 

create_identifier ($1 .psdl_id_value) ) ;  } 

—  The  only  difference  from  the  initial  expression 
I  time 

{  $$  :=  ( token_category  =>  expression_cat , 
express ion_value  => 
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create_time_literal  (natural ( $1 . integer_value) ) ) ; } 

I  type_name  '  .  '  IDENTIFIER 

{  $$  :=  ( token_category  =>  expression_cat , 
expression__value  => 

create_function_call  ($1 .  type_naine_value , 

psdl_id($3  .psdLid_value)  , 
empty_exp_seq) ) ;  } 

I  type_naine  '  .  '  IDENTIFIER  '  ( '  expression_list  ' )  ' 

{  $$  :=  { token_category  =>  expression_cat , 
express ion_value  => 

Great e_function__call  ($1 .  type_name_value , 

psdl_id ( $3 .psdl_i devalue) , 

$5  .  expression__seq_value)  )  ;  } 

I  ' ( '  expression  ' )  ' 

{  $$  :=  ( token_category  =>  expression_cat , 

express ion_value  =>  $2 . express ion_value) ; 

} 

I  expression  log_op  expression  %prec  logical_operator 
{  $$  :=  ( token_category  =>  expression_cat , 
express ion_value  => 

create_binary_op  ( $1 . expression_value , 

$2 .psdl_id_value, 

$3 .expression_value) ) ;  } 

I  expression  rel_op  expression  %prec  relational_operator 
{  $$  ;=  (token_category  =>  express ion_cat, 
express ion_value  => 

create_binary_op  { $1 . express ion_value , 

$2  .psdl__id_value, 

$3 .expression_value) ) ;  } 

I  expression  %prec  unary_adding_operator 

{  $$  :=  (token_category  =>  expression_cat , 
express ion_value  => 
create_unary_op  ( convert ( " ~ ) , 

$2 .expression_value) ) ;  } 

I  expression  %prec  unary_adding_operator 

{  $$  :=  ( token_category  =>  expression_cat , 
express ion_value  => 
crea te_unary_op  { convert ( " + " ) , 

$2 .express ion_value) ) ;  } 

I  expression  bin_add_op  expression 
%prec  binary_adding_operator 

{  $$  :=  ( token_category  =>  expression_cat , 
expression_value  => 

create_binary_op  { $ 1 . express ion_value , 

$2  .psdl__id_value, 

$3 . express ion_value) ) ;  } 

I  expression  bin_mul_op  expression 
%prec  multiplying_operator 

{  $$  :=  ( token_category  =>  expression_cat , 
expression_value  => 

create_binary_op  ( $1 . express ion_value , 

$2 .psdl_id_value, 

$3 . express ion_value) ) ;  } 

I  expression  EXP_TOKEN  expression 
%prec  highest_precedence_operator 

{  $$  ;=  { token_category  =>  expression_cat , 
expression_value  => 

create_binary_op  ( $1 . express ion_value , 
convert ("**"), 

$3  ,expression__value)  )  ;  } 

I  NOT_TOKEN  expression  %prec  highest. .precedence.. operator 
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{  $$  :=  ( token_category  =>  expression__cat , 
expression_value  => 

Great e_unary_op  { convert ( " NOT " ) , 

$2 . express ion_value) ) ;  } 

I  ABS_TOKEN  expression  %prec  highest_precedence_operator 

{  $$  :=  {token_category  =>  expression_cat , 
express ion_value  => 
create__unary_op  ( convert  ( " ABS " )  , 

$2 .expression_value) ) ;  } 


%% 


package  spec  parser 


with  psdl _pr ogram_pkg ;  use  psdl_program_pkg; 
with  text___io;  use  text_io; 
package  parser  is 

procedure  get  (item:  in  out  psdl_^rograiti)  ; 

procedure  get  (file:  in  file_type;  item:  in  out  psdl_program)  ; 

semantic_error :  exception; 
end  parser; 


package  body  parser 


with  parser_tokens;  use  parser_tokens ; 
with  parser_goto;  use  parser_goto; 

with  parser__shift_reduce;  use  par s e r_shi f t__r educe  ; 
with  parser_lex;  use  parser_lex; 
with  parser_lex_dfa;  use  parser_lex_dfa; 
with  psdl_component_pkg;  use  psdl_component _pkg; 
with  psdl_concrete_type_pkg;  use  psdl„concrete_type_p)kg; 
with  psdl_„graph __pkg;  use  psdl__graph_pkg; 
with  psdLio;  use  psdl_io; 
with  express ion_pkg;  use  express ion_pkg; 
package  body  parser  is 

subtype  exp_seg  is  expression_sequence_jpkg. sequence; 

function  empty_exp_seq  return  expression_sequence 
renames  express ion_sequence_pkg .  empty; 

—  Returns  an  empty  expression  sequence. 

--  global  variables  used  by  the  parser. 
the_pr ogr am :  psdl_pr ogr am  ; 
the_component :  psdl_component ; 
the_operator :  operator ; 
the__atomic_type :  atomic_type  ; 
the_atomic_operator :  atomic_operator  ; 
the_composite_type :  composite_type ; 
the_composite_operator :  compos ite_oper a tor; 
the_ada_name :  ada_id; 
the_gen _j>ar :  type_declaration ; 
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the_type_gen_par :  type_declarat ion ; 
the_keywords ;  psdl_id_set  ; 
the_reqmts_trace :  psdl_id_sequence ; 
the_spec_reqmts_trace :  psdl_id_sequence ; 
the_description:  text; 
the_axioms :  text ; 
the_output_id:  output_id; 

—  a  temporary  variable  to  hold  output_id  to  construct  out_guard  map 
the__excep_id;  excep_id; 

—  a  temporary  variable  to  hold  excep_id  to  construct  excep_trigger 

map 

the_model :  type_declaration; 
the_operation_map :  operation_map ; 
the_data_s  true tur e :  type_name ; 
the_input :  type__declaration; 
the_output :  type_declaration; 
the_state :  type_declaration; 
the_states_token_line :  natural ; 
the_states_token :  text ; 
the_initial_expression_map ;  init_map ; 
the_exceptions :  psdl_id_set ; 
the_specif ied_met ;  millisec ; 
the_graph :  psdl_graph  ; 
the_streams :  type_declaration; 
the_timers :  psdl_id_set ; 
the_trigger_map :  tr igger_map ; 
the_exec_guard :  exec_guard_map ; 
the_ou  t_guard :  out_guard_map  ; 
the_excep__tr igger :  excep_tr igger_map  ; 
the_t  ime r_op :  t  ime r_op_map  ; 
the_per :  t  iming_map ; 
the_f w :  t  iming_map ; 
the_mcp :  t  iming__map ; 
the_mrt :  t  iming_map ; 
the_operator__id :  op_id ; 

—  is  used  for  storing  the  operator  id's  in  control  constraints  part 
is_atomic_type :  boolean; 

—  true  if  the  psdl__component  is  an  atomic  type. 
is_atomic_operator :  boolean; 

—  true  if  the  psdl_component  is  an  atomic  operator, 
i s_spec ification:  bool ean ; 

—  True  if  the  current  unit  is  a  psdl  specification  part. 
the_init_exp_seq:  exp_seq; 

—  Holds  the  initial  expressions  for  all  state  variables  in  an 
operator  spec. 

the_type_name :  type_name  ; 
the_type_decl :  type_declaration; 

—  Used  to  hold  an  inherited/ synthesized  attribtue  pair, 
the_trigger :  trigger ; 
the_timer_op_record :  t imer_op  ; 
the_timer__op_set :  t imer_op_set ; 
the_impl_desc :  text ; 


--  procedure  initialize_state_variables 


procedure  initialize_state_variables  is 
begin 

yyval  :=  ( token_category  =>  no_value_cat)  ; 
end  initialize_state_variables; 
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—  procedure  yyparse 


procedure  yyparse;  —  Body  is  automatically  generated. 


—  procedure  yyerror 


procedure  yyerror (s:  in  string  :=  "syntax  error"; 

err_line:  natural  :=  current_line; 
err_token:  text  :=  convert (yy text ) )  is 

space:  integer; 
begin 

new_l ine ; 

put_line { standard_error , 

"line"  &  integer ' image (err_l ine)  &  "  & 

convert (err_token) ) ; 

space  : =  integer ' image ( err_line ) ' length  + 
integer {convert {err_token) ' length)  +  5 ; 

for  i  in  1  ..  space  loop  put (standard_error,  "-");  end  loop; 
put_line ( standard_error ,  " ^  &  s ) ; 

end  yyerror; 


—  given  a  string  of  characters  corresponding  to  a  natural  number, 
--  returns  the  natural  value 


function  convert_to_natural (string_digit :  string)  return  natural  is 
digit,  value  :  natural  :=  0; 
begin 

for  i  in  1  . .  string_digit ' length  loop 
case  string_digit ( i )  is 


when  ' 0 '  =>  digit 

=  0 

when  '1'  =>  digit 

=  1 

when  '2'  =>  digit 

=  2 

when  '3'  =>  digit 

=  3 

when  '4'  =>  digit 

=  4 

when  '5'  =>  digit 

=  5 

when  '6'  =>  digit 

=  6 

when  ' 7 '  =>  digit 

=  7 

when  ' 8 '  =>  digit 

=  8 

when  '9'  =>  digit 

=  9 

when  others  =>  return  value; 
end  case; 

value  :=  (10  *  value)  +  digit; 
end  loop; 
return  value; 
end  convert_to_natural ; 


procedure  get 

reads  the  standard  input,  parses  it,  and  creates  the 
psdl  adt. 


procedure  get (item:  in  out  psdl_program)  is 
begin 

initialize_state„variables ; 
initialize _yylex; 
yyparse; 

assign  (item,  the_program)  ; 
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end  get; 


procedure  get 

reads  the  psdl  source  file  from  a  file, 
parses  it,  and  creates  the  psdl  adt. 


procedure  get (file:  in  file_type; 

item:  in  out  psdl_program  )  is 

begin 

set_input (file) ; 
get (item) ; 

set_input (standard_input ) ; 
end  get; 


procedure  bind_type_declaration 

— bind  each  id  in  id  the  id 
— set  to  the  type  name 
— return  temp_type_decl 


procedure  bind_type_declaration  ( i_s :  in  psdl_id_sequence;  tn:  in 
type__name  ; 


td:  in  out  type_declaration)  is 

begin 

for  id  :  psdl_id  in  psdl_id_sequence_pkg. scan (i_s)  loop 
bind (id,  tn,  td) ; 
end  loop; 

end  bind_type_declaration; 


procedure  bind_initial_state 

—  Bind  each  id  in  the  state  map  domain 

—  set  to  the  type  name  initial  expression 


procedure  bind_initial_state (state :  in  type_declaration;  init_seq; 
exp_seq; 


init_exp__map:  in  out  init_map)  is 


i :  natural  : =  0 ; 
begin 

—  Added  by  Dave  Dampier  20  April  1994  to  eliminate  use  of  the  M4 
Macros , 

—  and  adopt  use  of  the  new  generator  processor  for  loops . 


in 


—  Begin  syntax  for  generate  expansion. 

for  id  :  psdl_id,  td  :  type_name  in  type_declaration_pkg.  scan  (state) 

loop 

i  :=  i  +  1; 

if  i  >  expression__sequence_pkg.  length (init_seq)  then 

yyerror ("semantic  error  -  some  states  are  not  initialized.", 
the_states_token_line,  the__states_ token)  ; 
raise  semantic„error ; 
else  bind (id, 

expression_sequence_pkg.  fetch  (ini t_seq,  i)  , 
init_exp_map)  ; 

end  if; 
end  loop ; 

—  End  of  Added  Code. 
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Also  eliminated  old  M4  code. 


if  i  <  expression_sequence_pkg. length (ini t_seq)  then 

yyerror  ( "semantic  error  -  there  are  more  initializations  than  the 
states" , 

the_states_token_line,  the_states_token)  ; 
raise  semantic_error ; 
end  if; 

end  bind_initial_state; 


procedure  makeup sdl_type 
construct  the  psdl  type  using  global  variables 


procedure  build_psdl_type {c_name :  in  psdl_id; 

c_a„name:  in  ada_id; 

mdl :  in  type_declaration; 

d_str:  in  type_name; 

ops:  in  operation_map; 

g_par:  in  type_declaration; 

kwr:  in  psdl_id_set; 

i_desc :  in  text ; 

f_desc:  in  text; 

is_atomic:  in  boolean; 

the_type:  in  out  data_type; 

reqms:  in  psdl_id_sequence)  is 

begin 

if  is__atomic  then 

the_type  :=  make_atomic_type  {psdl_name  =>  c_name, 

ada_name  =>  c_a_name, 
model  =>  mdl , 
gen_par  =>  g_par, 
operations=>  ops, 
keywords  =>  kwr, 
informal_description  =>  i_desc, 
axioms  =>  f_desc, 
requirements  =>  reqms  ) ; 

else  the_type  :=  make_composite_ type  (name  =>  c_name, 

model  =>  mdl, 
data_structure  =>  d_str, 
operations=>  ops, 
gen_par  =>  g_par, 
keywords  =>  kwr, 
informal__description  =>  i_desc, 
axioms  =>  f_desc, 
requirements  =>  reqms  ) ; 

end  if; 

end  build_psdl_type; 


construct  the  psdl  operator  using  global  variables 


procedure  build_psdl_operator (c_name:  in  psdl_id; 

c_a_name:  in  ada_id; 

g_par:  in  type_declaration; 

kwr:  in  psdl_id_set; 

i_desc:  in  text; 

f_desc ;  in  text ; 

inp:  in  type_declaration; 


no 


otp:  in  type_declaration; 

St:  in  type_declaration; 

i_exp_map:  in  init__map; 

excps :  in  psdl_id_set; 

s_met:  in  millisec; 

gr:  in  psdl_graph; 

d_stream:  in  type_declaration; 

tmrs:  in  psdl__id_set ; 

trigs:  in  trigger_map; 

e_guard :  in  exec_guard_inap ; 

o_guard :  in  out__guard_map ; 

e_trigger:  in  excep_trigger_map; 

t_op:  in  tiiner_op_map; 

per:  in  timing_map; 

f w :  in  t imi ng_map ; 

mcp:  in  timing_inap; 

mr t :  in  t iming_map ; 

im_desc:  in  text; 

reqms:  in  psdl_id_sequence; 

is_atomic:  in  boolean; 

the_opr:  in  out  operator  )  is 

begin 

if  is_atomic  then 

the_opr  :=  inake_atomic_operator  (psdl_naine  =>  c_name, 

ada_name  =>  c_a__name, 

gen__par  =>  g_j3ar, 

keywords  =>  kwr, 

informal_description  =>  i_desc, 

axioms  =>  f_desc, 

input  =>  inp , 

output  =>  otp, 

state  =>  st, 

initial ization_map  =>  i_exp_map 
exceptions  =>  excps, 
specif ied__met  =>  s_met, 
requirements  =>  reqms) ; 

else  the__opr  :=  make_compos  it  eloper  a  tor  (name  =>  c_name, 

gen_par  =>  g_par, 
keywords  =>  kwr, 
informal_description  => 

i_desc, 

axioms  =>  f_desc, 
input  =>  inp, 
output  =>  otp, 
state  =>  St, 
initial ization_map  => 

i__exp_map , 

exceptions  =>  excps, 

specif ied_met  =>  s_met, 

graph  =>  gr, 

streams  =>  d_stream, 

timers  =>  tmrs, 

trigger  =>  trigs, 

exec_guard=>  e_guard, 

out_guard  =>  o_guard, 

excep__trigger  =>  e_trigger 

timer_op  =>  t_op, 

per  =>  per, 

fw  =>  fw, 

mcp  =>  mcp, 

mrt  =>  mrt. 


111 


impl_desc  =>  im^desc, 
requirements  =>  reqms) ; 

end  if; 

end  build_psdl_operator ; 


procedure  add_op_impl_to_op_map 

Augments  the  operation  map  we  constructed  using  only  the 
specification  part. 

Fetches  the  operator  from  the  map,  with  the  information 

from  the  specification  part  and  adds  the  implementation  to  it. 

Removes  the  old  one,  and  adds  the  new  complete  operator  the  map. 

procedure  add_op_impl_to_op_map  ( op_name :  in  psdl_id; 

a_name:  in  ada_id; 

is_atomic:  in  boolean; 

o_map:  in  out  operation_map; 

gr:  in  out  psdl_graph; 

d_stream:  in  out  type_declaration; 

tmrs:  in  out  psdl_id_set; 

trigs:  in  out  trigger_map; 

e_guard:  in  out  exec_guard_map ; 

o_guard:  in  out  out__guard_map; 

e__trigger:  in  out  excep_trigger_map; 

t__op:  in  out  timer_op_map; 

per:  in  out  timing_map; 

fw:  in  out  timing_map; 

mcp:  in  out  timing_map; 

mrt:  in  out  timing_map; 

im_desc:  in  out  text  )  is 

temp_op :  operator ; 
begin 

if  operat ion_map__pkg. member  (op_name,  opera tion_map_pkg. map {o_map)  ) 

then 

temp_op  :  =  operat ion_map_pkg .  fetch  ( operat ion_map_pkg .  map  ( o_map )  , 

op_name) ; 

operation__map_pkg .  remove  { op_name ,  opera tion_map_pkg .map  ( o_map)  )  ; 
if  is_atomic  then 

temp_op  :=  make_atomic_operator 

(psdl_name  =>  op_name, 
ada_name  =>  a_name, 

gen_par  =>  generic_parameters  ( temp_op)  , 
keywords  =>  keywords  ( temp_op )  , 
informal_description  => 

informal_description{temp_op)  , 

axioms  =>  axioms  (temp_op)  , 
input  =>  inputs (temp_op) , 
output  =>  outputs (temp_op) , 
state  =>  states (temp_op) , 
initialization_map  => 

get_init_map { temp_op) , 

exceptions=>  exceptions (temp_op) , 
specif  ied__met  => 

specif  ied__maximum_execution_time  { temp_op)  )  ; 
else 

temp_op  :=  make_composite_operator 

(name  =>  op_name, 

gen_par  =>  generic_parameters  ( temp_op)  , 
keywords  =>  keywords  (temp_op)  , 
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informal_description  => 


informal__description{temp_op)  , 

axioms  =>  axioms  (temp_op)  , 
input  =>  inputs  (temp__op)  , 
output  =>  outputs (temp_op) , 
state  =>  states (temp_op) , 
initialization_map  => 

get_init__map(temp_op)  , 

exceptions=>  exceptions {temp_op) , 
specif ied_met  => 

specif  ied_maximum_execution_time  (temp_op)  , 

graph  =>  gr, 

streams  =>  d_stream, 

timers  =>  tmrs, 

trigger  =>  trigs, 

exec_guard=>  e__guard, 

out_guard  =>  o_guard, 

excep_trigger  =>  e_trigger, 

timer_op  =>  t_op, 

per  =>  per, 

fw  =>  fw, 

mcp  =>  mcp, 

mrt  =>  mrt, 

impl_desc  =>  im_desc) ; 

end  i f ; 

bind_oper at ion ( op_name ,  t emp_op ,  o_map ) ; 

--  reset  everything  after  you  are  done. (the  variables  that  have 
default  values) 

gr  :=  empty_psdl_graph; 
d_stream  :=  empty_type_declaration; 
tmrs  :=  empty; 
trigs  :=  empty_trigger_map; 
e_guard  : =  empty_exec_guard_map ; 
o_guard  : =  empty_out_guard_map ; 
e_trigger  ; =  empty_excep_trigger_map ; 
t_op  :=  empty_timer_op_map; 
per  :=  empty_timing_map; 
fw  :=  empty_timing_map; 
mcp  :=  empty_timing_map; 
mrt  :=  empty_timing_map; 
im_desc  :=  empty; 
else 

put {standard_error,  "warning:  the  specification  of  operator  '”); 
put_line ( standard_error , 

convert  (op__name)  &  was  not  given,  implementation 

ignored . " ) ; 
end  if; 

end  add_op_imp  l_t  o_op__map  ; 


procedure  output_trace 

— pass  the  pointer  to  the  component  to  retrieve  the  set  of 
— requirements  ids.  Call  put_regm_ids  defined  in  psdl_io  package 
— to  output  component  name  and  ids  only  if  there  are  any  ids. 


procedure  output_trace  ( the_type :  psdl_component )  is 
reqts  :  psdl_id_sequence; 
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begin 

reqts  :=  the_r eqmts_ trace ; 

reqts  :=  requirements (the_type) ;  For  testing  purposes 
if  not  equal  (reqts , empty)  then 
put_reqm_ids ( the_type ,  reqts ) ; 
end  if; 

the_reqmts__trace  :=  empty; 
the_spec_reqmts_trace  :  =  empty; 
end  output_trace ; 


--  Generated  body  of  yyparse  goes  here. 
##%procedure_parse 

end  parser; 
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